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
Sub aaa
dim i as Long
for i=5 to 16
if cells(i,20)