Zeilenumbrüche ersetzen
19.09.2007 11:17:00
Pete
ich habe folgendes Problem. Ich möchte in mehreren Zellen Zeilenumbrüche ersetzen. Dazu habe ich mir folgendes Makro überlegt:
Sub zeilenumbruch()
Dim i As Long
i = 1
While Not Sheets("Tabelle1").Cells(i, 1).Value = ""
If Sheets("Tabelle1").Cells(i, 1).WrapText = False Then
Sheets("Tabelle1").Cells(i, 1).Replace What:=Chr(10), Replacement:="zeilenumbruch", LookAt:= _
xlPart
End If
i = i + 1
Wend
End Sub
Ich möchte also das Zeichen Chr(10) durch den String "zeilenumbruch" ersetzen. Irgendwie funktioniert das aber nicht. Kann mir jemand helfen?
Danke & Gruss
Pete