ich habe eine Excel Datei erhalten, bei welcher kein automatischer Zeilenumbruch aktiviert wurde - alle Zeilenumbrüche innerhalb einer Zelle wurden manuell eingefügt. Wie kann ich diese per Makro löschen?
VG
Sub ZeilenumbruecheEntfernen()
Cells.Replace What:=Chr(10), Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub
Gruß Uwe
Sub ZeilenumbruecheEntfernen()
Cells.Replace What:=Chr(10), Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub
Gruß Uwe
Sub ZeilenumbruecheEntfernen()
Cells.WrapText = False
Cells.Replace What:=Chr(10), Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Rows.AutoFit
Columns.AutoFit
End Sub
Gruß UweDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen