Ich hab theoretisch gerade eine Lösung gefunden:
With wks
ZeileMax = .UsedRange.Rows.Count
For Zeile = ZeileMax To 1 Step -1
Cells(Zeile, 1).Value = Replace(Cells(Zeile, 1).Value, Chr(13), "")
Cells(Zeile, 1).Value = Replace(Cells(Zeile, 1).Value, Chr(10), "")
If Trim(.Cells(Zeile, 1).Value) = "" Then
.Rows(Zeile).Delete
End If
Next Zeile
Leider nur theoretisch, da es seltsamerweise nur funktioniert, wenn ich einen Debug-Punkt innerhalb der Schleife setze und mich mindestens einmal manuell mit F8 Schritt-für-Schritt durchklicke. Wenn ich es ganz normal starte, bleiben die Leerzeilen dagegen erhalten. Ich bin mehr und mehr verwirrt. Wie kann das denn jetzt wieder sein? Ich tue doch beim Schritt-für-Schritt-durchklicken nix anderes, als wenn ich einfach nur auf Play drücke
|