Gruppe
DatumZeit
Problem
In Spalte E sollen die runden Geburtstage gem. den Werten in Spalte C ermittelt werden. Über die Hilfsspalte D wird festgestellt, ob es sich um einen Geburtstag handelt.
ClassModule: Tabelle1
Private Sub CheckBox1_MouseDown( _
ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If MsgBox("Aktion wirklich durchführen?", _
vbQuestion + vbYesNo) = vbYes Then
MsgBox "Führe Aktion durch!"
CheckBox1.Value = Not CheckBox1.Value
End If
End Sub
Private Sub CheckBox2_Change()
If MsgBox("Aktion wirklich durchführen?", _
vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
MsgBox "Führe Aktion durch!"
End If
End Sub