Schleife soll MsgBox ausgeben und Einträge löschen
25.06.2015 15:49:27
Niko
ich möchte mit einer Schleife folgendes erreichen:
If [T5] < 5 Then
MsgBox "Das Datum ist falsch.
Range("A5,B5") = ""
End If
If [T6] < 5 Then
MsgBox "Das Datum ist falsch.
Range("A6,B6") = ""
End If
bis [T16]
Danke schonmal für eure Mühe.
Gruß
Niko
Anzeige