per VBA alle Textboxen in Arbeitsmappe suchen
19.04.2013 07:38:02
Peter
ich möchte per VBA in allen Blättern der gesamten Arbeitsmappe die Textboxen suchen
und wenn ein bestimmter Teil des Namens der gesuchten Textbox gleich ist
soll dort ein Inhalt eingefügt werden.
Mein Versuch ist mit meinen VBA Kenntnissen leider gescheitert.
Public Sub test()
Dim oleObj
For Each oleObj In ActiveSheet.OLEObjects
Select Case TypeName(oleObj.Object)
Case "TextBox"
MsgBox oleObj.Name
' oleObj.Text = "A" z.B- txtTest1 und txtTest2 gleicher Namensteil: txtTest den Inhalt B einfügen
einen Inhalt einfügen. lokale Namen per VBA definieren.
Wer kann helfen
Meine Vostellung:
Danke im voraus
Peter
Anzeige