AW: Ja, das hatte ich noch vergessen, ...
Luc:-?
...Sam!
Dazu musst du zwischen die "" in der Programmzeile...
If zx.Value = "" Then Exit For
...das EOF-Zeichen einfügen. Wenn das nicht klappen will, solltest du seinen ASCII-Code mit Excel-Fkt CODE(zeichen) ermitteln und den entsprechenden Wert in die VBA-Fkt Chr(zahl) einfügen... Da es sich bei dem von dir geposteten Zeichen aber offensichtlich um Unicode handelt, habe ich dir mal für dieses Zeichen den Code ermittelt. Du musst dann also ChrW(9633) verwenden...
If zx.Value = ChrW(9633) Then Exit For
Wenn das wider Erwarten nicht klappen sollte, kannst du auch nach der übernächsten Zelle fragen...
If zx.Offset(1, 0).Value = "" Then Exit For
Das sollte dann auch fkt.
Das Tagesdatum hätte ich auch so eingefügt, empfehle aber, sich nach UNO-Normen zu richten und zweckmäßigerweise dasselbe auf jjjjmmtt ohne Pkte (evtl aber - besser _) einzustellen. Für Datum und Uhrzeit kann die VBA-Fkt Now() verwendet wdn, deren Ergebnis als jjjjmmtthhmmss (evtl mit zwischengeschaltetem _) analog angefügt wdn sollte. Dazu muss das Ergebnis entsprechend formatiert wdn. Wenn aber nur die sich primär aus der Fkt ergebende Dezimalzahl verwendet wdn soll, ist es erforderlich, evtl DezKomma (DezPkt könnte bleiben) durch _ zu ersetzen...
... = WorksheetFunction.Substitute(Now(), ",", "_")
Viel Erfolg und Gruß
Luc :-?