abschließende Leerzeilen in Zellen löschen
27.02.2016 12:44:57
Peter
ich habe folgendes Problem: Eine Excel-Tabelle (Export aus Outlook-Kontakten) gibt es u.a. eine Spalte mit Notizen, in deren Zellen häufig mehrere Leerzeilen stehen. Diese bekomme ich mit wiederholtem
Sub umbrueche()
Columns("G:G").Select
Selection.Replace What:="" & Chr(10) & "" & Chr(10) & "", Replacement:="" & Chr(10) & "", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Lediglich abschließende Leerzeilen in einer Zelle werden damit nicht entfernt. Wie werde ich die los?
Viele Grüße,
Peter