mein Tool funktioniert schon, aber:
Inhalt = ActiveSheet.Shapes("Card100").TextFrame.Characters.Text
TB100.Value = Inhalt
Inhalt = ActiveSheet.Shapes("Card101").TextFrame.Characters.Text
TB101.Value = Inhalt
.
.
.
Inhalt = ActiveSheet.Shapes("Card199").TextFrame.Characters.Text
TB199.Value = Inhalt
So hole ich aus jedem Shape den Inhalt und schreibe diesen in eine Textbox ( Userform )
Nun möchte ich das ganze mit einer For Next Schleife machen. Also so ungefähr:
Private Sub UserForm_Initialize()
Dim TB As Variant
Dim ZählerFelder As Variant
For ZählerFelder = 100 To 199
TB = "TB" & ZählerFelder
Inhalt = ActiveSheet.Shapes("Card" & ZählerFelder).TextFrame.Characters.Text
TB.Value = Inhalt
Next
End Sub
Nun geht das aber leider nicht und VBA bring den Fehler: Laufzeitfehler 424
Der Fehler tritt bei der Zeile TB.Value = Inhalt auf.
Wie kann ich das machen?
Vielen Dank Rainer