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
|