VBA Textfeld Variable zuweisen

[Haloman]

Hallo,

habe folgende VBA Code:

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 505.5, 258#, _
195.75, 41.25).Select

Selection.Characters.Text = "test"

Ich möchte der Textbox jedoch nicht den Wert test zuweisen sondern ein Datum das in der Zelle H5 steht.

Wie müsste das aussehen?

 

[cuco]

auf eine Zelle greifst du mit folgendem parameter zu:

sheet1.Cells (8,5) oder sheet1.Cells (H,5)

H ist der 8te buchstabe im Alphabet. Das sheet1 ist nicht zwingend.
normalerweise macht man das mit einem Händler um die sheets über den Namen anspechen zu können.

Worksheets("Blatt1").Select
Set sheet1 = Worksheets("Blatt1")

 

[Haloman]

Da ich fast keine Ahnung von VBA habe komme ich leider immer noch net so recht weiter.

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 505.5, 258#, _
195.75, 41.25).Select

Hiermit hab ich ja das Textfeld ausgewählt.

So nun muss ich dieser Auswahl ja ein Wert hinzufügen.

Selection.Characters.Text = ""

Mit diesem Befehl kann ich jedoch nur text hinzufügen. Gibt es da nicht was entsprechendes womit man Zell inhalte wiedergeben kann?

 

[Mr. Snoot]

Selection.Characters.Text = Range("H5").Value

oder

Selection.Characters.Text = Cells(5, "H").Value

 

[Haloman]

Erst einmal vielen Dank für eure tolle unterstützung.

Das mit den Textfeldern hat nun funktioniert.

So nun kommt aber Problem 2.

Der Wert der Variable muss auch noch in die textfelder anderer Tabellen.

Hab mal ein Makro aufgezeichnet damit ich an die Pfade komme.

Application.Run "'Bericht.xls'!Tabelle2"

Ich brauche nun den Wert Cells(5, "H").Value in dem Textfeld von Tabelle 2.

Aber wie bekomme ich das hin?

Folgendes habe ich mal selber zusammengebastelt.


Cells(5, "H").Select
Application.Run "'Bericht.xls'!Tabelle2"

ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 0#, 437.56, _
99.78, 21.44).Select
Selection.Characters.Text = Cells(5, "H").Value

Bekomme jedoch ne Fehlermeldung Laufzeitfehler 9 Index außerhalb des geltenden Bereichs.

mfg