Häkchen setzen wenn Wert > x%
04.10.2007 15:02:00
Michael
Ich habe folgenden Makro, welches mir einen Haken in zwei Kontrollkästchen setzen soll wenn der Wert in der Zielzelle > 3% ist. Aber leider tut es das nicht :o(
Könnt Ihr mal schauen wo der Fehler liegt
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cbHaken As ControlFormat
If Target.Address = "$F$16" Then
If Target > 0.03 Then
ActiveSheet.Shapes("Check Box 53").ControlFormat.Value = xlOn
ActiveSheet.Shapes("Check Box 54").ControlFormat.Value = xlOn
Else
ActiveSheet.Shapes("Check Box 53").ControlFormat.Value = xlOff
ActiveSheet.Shapes("Check Box 54").ControlFormat.Value = xlOff
End If
End If
End Sub