VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Runde Geburtstage aus einer Liste ermitteln

Gruppe

DatumZeit

Bereich

Geburtstag

Thema

Runde Geburtstage aus einer Liste ermitteln

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.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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

    


Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Geburtstag