Moin Zusammen,
flolgende Frage:
Kann ich, wenn ich z.B. in einem Rechteck1 die Zahl "3" schreibe, diese in eine Zelle eintragen lassen?
Also in A1 schreiben: "=Rechteck1" z.B.
Andersherum, im Rechteck1 "=A1" zu schreiben funktioniert ja tadellos.
Viele Dank im Voraus
Grüße aus dem Norden
Fred
Hallo Fred,
das geht nur mit VBA auf folgendem Weg:
Code:
With Sheets("Tabelle1")
.Range("A1").Value = .Shapes("Rechteck 1").TextFrame.Characters.Text
End With
Moin Bernie,
vielen Dank für die Antwort. Es funktioniert soweit Prima.
Kann ich den Text des Rechtecks als Zahl speichern? Denn mit der Eingabe in die Rechtecke, würde ich gerne Berechnungen durchführen.
Vielen Dank
Beste Grüße
Fred
Sofern das Rechteck nur eine Zahl enthält, sollte der Wert doch auch als Zahl übergeben werden (bei mir tut es das zumindest).
Wenn das bei dir nicht der Fall ist, lade bitte eine Beispielmappe hoch.
Hm ich hatte vielleicht einen Dreher drin. Es funktioniert aufjedenfall, Danke.
Letzte Frage noch: :)
Wie sieht der Code aus, wenn die Rechtecke in Tabelle 1 sind und die Zahlen in Tabelle 2 in einer Zelle stehen soll?
Grüße
Fred
Dann am besten so:
Code:
Sub Kopieren()
Dim Quelle As Worksheet
Dim Ziel As Worksheet
Set Quelle = Sheets("Tabelle1")
Set Ziel = Sheets("Tabelle2")
With Quelle
Ziel.Range("A1").Value = .Shapes("Rechteck 1").TextFrame.Characters.Text
Ziel.Range("A2").Value = .Shapes("Rechteck 2").TextFrame.Characters.Text
'usw. usw. usw.
End With
End Sub