kann noch einmal jemand helfen?
Hatte Gestern hier im Foruma 18.03.2007 15:46:17) folgenden Code erhalten, der auch so ziemlich das ist, was ich suchte.
Aber er gibt mir eine Fehlermeldung aus an der Stelle: If CDate(Ablaufdatum) Hier der gesamt Code:
Sub Pruefen()
Dim Ablaufdatum As String 'Variable deklarieren
Ablaufdatum = Cells(10, 1).Value 'DatumsString aus A10 ihn die Variable schreiben
MsgBox Ablaufdatum 'Kontrollbox (kann später gelöscht werden)
If CDate(Ablaufdatum)
Kann jemand sagen, was die Ursache ist?Danke T.