leider ist die Forumsfrage nicht mehr verfügbar.Darum habe ich Sie neu angelegt.
Gruß Sam
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.
... = WorksheetFunction.Substitute(Now(), ",", "_")
Viel Erfolg und Gruß
If dz > 0 Then
...und...
Application.DisplayAlerts = False
...die Zeile(n)...
Worksheets(IIf(dn = "", "#" & dz, dn) & dt).Cells(zi + 1, _
1).Value = ChrW(9633)
...ein. Wenn dein EOF-Zeichen so richtig ist, sollte es dann am Ende jeder Datei stehen. Will hoffen, dass auch die Texteditoren damit umgehen können und es richtig angezeigt wird. Word und Excel sollten es können.