DateValue(.Cells(zNr, 8)) - wenn Zelle leer?
Peter
Wie muss ich die erste Codezeile unten anpassen, damit ich, wenn .Cells(zNr,8) kein Eintrag enthält, nicht die Fehlermeldung "Typen unverträglich" erhalte?
Stattdesen, soll VBA erkennen, dass "nichts" (kein Eintrag) und ein Datum in "xeDate" ungleich ist und 'mach dies' zutrifft.
Gruss, Peter
If DateValue(.Cells(zNr, 8)) Range("xeDate") Then
'mach dies
Else
'etwas anderes
End If