z.B ich bin da
und will her
folgendes machen
geht es das
durch einen zeilenumbruch zu ersetzen
danke schon mal im voraus
Sub Wrapp()
Dim strMeinText As String
strMeinText = CStr("z.B ich bin da und will her folgendes machen")
strMeinText = Replace(strMeinText, "da", "da" & Chr(10))
strMeinText = Replace(strMeinText, "folgendes", Chr(10) & Chr(10) & "folgendes")
MsgBox strMeinText
strMeinText = CStr("z.B ich bin da und will her folgendes machen")
strMeinText = Replace(strMeinText, "und will her", Chr(10))
MsgBox strMeinText
End Sub
Sub ersetzen()
' ersetzen Makro
' Makro am 18.06.2006 von Barbara Raith aufgezeichnet
ActiveSheet.Cells.Replace "<br>", Chr(10)
End Sub