ich möchte prüfen, ob die Formularschaltfläche "WAHR" bereits vorhanden ist und dementsprechend eine MsgBox ausgeben. Irgendetwas klappt nicht, weiß aber nicht wo der Fehler ist.
Option Explicit
Sub Testmodul()
Dim shShape As Shape
With ActiveSheet
If shShape.Name = "WAHR" Then
MsgBox "Bereits vorhanden"
Else
MsgBox "Noch nicht vorhanden"
End If
End With
End Sub
Danke für die Hilfe und Servus, Walter