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ß Uwe