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
weg (je zwei aufeinanderfolgende Zeilenumbrüche werden duch einen ersetzt, bis keine aufeinanderfolgenden mehr übrigbleiben.)Lediglich abschließende Leerzeilen in einer Zelle werden damit nicht entfernt. Wie werde ich die los?
Viele Grüße,
Peter