ich hätte da mal wieder ein Problem.
Ich habe auf einen Worksheet eine Checkbox dessen Zustand ich abfragen möchte, um darauf zu reagieren.
Hier der Code:
public sub test()
Dim blnWert As Boolean
Dim strAufrufendecheckbox$
On Error GoTo ErrorHandler
strAufrufendecheckbox = Application.Caller
Application.ScreenUpdating = False
If ActiveSheet.Shapes(strAufrufendecheckbox).ControllFormat.Value = 1 Then
blnWert = True
Else
blnWert = False
End If
If blnWert = True Then
blablabla
Ich bekomme immer den Fehler Typen unverträglich (Fehler 2003).
Wo liegt hier denn der Fehler.
Danke im Voraus
Jörg