AW: Zelle in Textfeld schreiben
30.12.2008 22:57:42
Ramses
Hallo
Das ganze kann auch ohne Select durchgeführt werden.
Nicht als Oberlehrer Gehabe verstehen sondern als Info/Tip für das nächste Mal :-)
Sub Textfeld_füllen()
With ActiveSheet.Shapes("Text Box 6")
.OLEFormat.Object.Characters.Text = ActiveCell.Value & .OLEFormat.Object.Characters.Text & Chr(10)
End With
End Sub
Um herauszufinden wie solche kryptischen Anweisungen, die der Makrorekorder nicht aufzeichnet, entstehen, stell den Code so um
Sub Textfeld_füllen()
Dim myObj As Shape
Set myObj = ActiveSheet.Shapes("Text Box 6")
With myObj
.OLEFormat.Object.Characters.Text = ActiveCell.Value & .OLEFormat.Object.Characters.Text & Chr(10)
End With
End Sub
Blende unter dem Menü "Ansicht" die Option "Lokalfenster" ein und geh den Code mit F8 im Einzelschritt durch.
Wenn du in die Zeile "With myObj" kommst, siehst du im Lokalfenster folgendes
Damit kannst du zu 99,999% alle Eigenschaften eines Objectes direkt und ohne "Select" ansprechen :-)
Gruss Rainer