Zahl einer "Form" in einer Zelle eintrage

[Fred B]

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

[MisterBurns]

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

[Fred B]

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

[MisterBurns]

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.

[Fred B]

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

[MisterBurns]

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

[Fred B]

Läuft, vielen Dank :)