Checkbox (Objekt erforderlich - 424)
dani
Code für Checkbox Klickereignis:
**************************
Private Sub A1_chkbox_Click()
chko = A1_chkbox.Object
chkn = A1_chkbox.Name
Call chkbox(chko, chkn) 'Modul-Aufruf chkbox
End Sub
chkbox-Modul, das Aufgerufen wird:
****************************
Public Function chkbox(chko, chkn)
MsgBox "chkn = " & chkn 'wird korrekt angezeigt
MsgBox "chko = " & chko 'wird korrekt angezeigt
If chko = True Then
chkn.Caption = Date & " " & Time
' ==> bei chkn.Caption kommt die Fehlermeldung
' ==> Laufzeitfehler 424
' ==> Objekt erforderlich
Range(chkn.LinkedCell).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
Else
chkn.Caption = "Offen"
Range(chkn.LinkedCell).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Function
Wie muss ich diese Variabeln definieren/deklarieren etc....?
Danke für euer Hilfe!