Private Sub CommandButton1_Click()
MsgBox "Richtig"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C2")) Is Nothing Then
If LCase(Me.Range("C2").Value) = "a" Then
ActiveSheet.Shapes("Schaltfläche 4").Visible = True
MsgBox "Ich seh Dich!"
Else
ActiveSheet.Shapes("Schaltfläche 4").Visible = False
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4:A13")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then
Target.Offset(0, 4).ClearContents
Else:
Target.Offset(0, 4) = CDate(Format(Now()))
End If
End Sub
LG
Kai