'Terminkontrolle
    Datum = Date    'das aktuelle Datum
    termin = 0      'zeigt die gesamtanzahl der Termine
 
    'die Spalte "Termine" der Posteingangstabelle wird überprüft
    For z = 1 To Form8.MSFlexGrid1.Rows - 1
        Form8.MSFlexGrid1.Col = 16 'Zeiger auf die Spalte
        Form8.MSFlexGrid1.Row = z  'Zeiger auf die Zeile
        If (Form8.MSFlexGrid1.Text = "") Then
            GoTo weiter 'ist in einer Zeile kein Termin gesetzt, wird sofort 
            ' mit der nächsten Zeile weitergemacht
        End If
        term_tab = CDate(Form8.MSFlexGrid1.Text) 'Inhalt von "Termin" in _
          Datentyp "Date" konvertieren
        diff = term_tab - Datum 'das aktuelle Datum wird vom Wert aus "Termin" _
        abgezogen
        If (diff < 3 And diff > -1) Then
            termin = termin + 1 'ergibt die Differenz einen Wert zwischen 0 und 
            ' 2 (heute bis übermorgen) wird die Anzahl der Termine um 1 erhöht
            If (diff = 0) Then '0 heißt heute
                frmtermin.Label7.Caption = CInt(frmtermin.Label7.Caption) + 1 _
                  'Anzahl der jeweiligen Termine hochzählen
                frmtermin.Label10.Caption = frmtermin.Label10.Caption + CStr(z) _
                + " | " 'die entsprechenden Datensätze anzeigen
            End If
            If (diff = 1) Then '1 heißt morgen
                frmtermin.Label8.Caption = CInt(frmtermin.Label8.Caption) + 1 _
                  'Anzahl der jeweiligen Termine hochzählen
                frmtermin.Label11.Caption = frmtermin.Label11.Caption + CStr(z) _
                + " | " 'die entsprechenden Datensätze anzeigen
            End If
            If (diff = 2) Then '2 heißt übermorgen
                frmtermin.Label9.Caption = CInt(frmtermin.Label9.Caption) + 1 _
                  'Anzahl der jeweiligen Termine hochzählen
                frmtermin.Label12.Caption = frmtermin.Label12.Caption + CStr(z) _
                + " | " 'die entsprechenden Datensätze anzeigen
            End If
        End If
weiter:
    Next z