HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
daniel
13.05.2026 09:43:31
AW: Code von OLEObject auslesen
kannst du die Datei dazu hochladen?
ansonsten, für die Caption hast du deinen Angaben nach einen funktionierenden Code verwende doch den.
hast du auch die Abfrage direkt auf das Shape probiert, so wie mein erstes Beispiel?
Als Antwort auf diesen Beitrag
Maria
12.05.2026 17:38:10
AW: Code von OLEObject auslesen
Hei Daniel,

vielen Dank für Deine Zeit und Deine Antwort!

' Schleife durch alle Shapes auf dem aktiven Tabellenblatt
For Each shp In ThisWorkbook.Worksheets(intAktWs).Shapes

intAktRowButtons = intAktRowButtons + 1
ThisWorkbook.Worksheets("Buttons und Code").Cells(intAktRowButtons, 1).Value = ThisWorkbook.Worksheets(intAktWs).Name
ThisWorkbook.Worksheets("Buttons und Code").Cells(intAktRowButtons, 2).Value = shp.OLEFormat.Object.caption-> Objekt unterstützt diese Eigenschaft oder Methode nicht
ThisWorkbook.Worksheets("Buttons und Code").Cells(intAktRowButtons, 2).Value = shp.OLEFormat.Object.OnAction -> zeigt einen leeren String an, obwohl dem Button definitiv ein Code zugeordnet ist

Next shp

Schon einmal vielen Dank im Voraus,

lg von Maria
Folgenachrichten
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen

Bitte einen Nachrichtentext eingeben.