Hallo zusammen,

ich will eine spalte auf termine überprüfen und abhängig vom aktuellen Datum 2 Arbeitstage zurück eine msgbox starten mit text und Verweis auf eine Nummer in der 1 Spalte. Zwei Probleme:

zum Einen prüft mein makro nur die aktive Zelle und geht nicht zur nächsten,

und zweitens funktioniert Workday nicht.

Wer hilft?

Private Sub Worksheet_Activate()

Dim Bereich As Range
Dim Zelle As Range

Set Bereich = Range("I1:I20")

For Each Zelle In Bereich
    If Zelle = "" Then
    'nix unternehmen
    ElseIf Zelle(Date = Date - 10) Then
        MsgBox ("Muster unterwegs für ") & vbCrLf & Range("A" & ActiveCell.Row) & i
    End If
Next
End Sub