Vermutlich hast du da ein Line Feed in der Zelle.
Man kann das entfernen, oder z.B. durch ein Leerzeichen ersetzen...
1 | .Cells(Zeile, 1).Value = Replace(.Cells(Zeile, 1).Value, vbLf, " " )
|
... und danach mit Trim() testen, ob die Zelle leer ist.
Trim() schaut nur auf Leerzeichen (am Anfang & Ende)! Ein Line Feed ignoriert es.
|