Leerzeilen aus Text in einer Zelle löschen
R.Schmitt
daß ich mit
Sub Char10()
Cells.Replace What:=Chr$(10), Replacement:="", LookAt:=xlPart
End Sub
die Zeilenumbrüche aus einem Text entfernen kann ist klar.
Ich hänge gedanklich nur gerade an der Aufgabenstellung, die
Leerzeilen aus einem Text entfernen zu müßen.
Aus :
Bagdad
Die Entführer der beiden deutschen Geiseln im Irak haben mit deren Tötung gedroht, sollte die Bundesregierung ihre Forderungen nicht erfüllen.
Der Fernsehsender al-Arabija zeigte ein weiteres Video.
Darin sind die beiden Geiseln am Boden kniend zu sehen.
Hinter ihnen stehen die bewaffneten Entführer.
Das Video hat keinen Ton.
sollte also das hier werden
Bagdad
Die Entführer der beiden deutschen Geiseln im Irak haben mit deren Tötung gedroht, sollte die Bundesregierung ihre Forderungen nicht erfüllen.
Der Fernsehsender al-Arabija zeigte ein weiteres Video.
Darin sind die beiden Geiseln am Boden kniend zu sehen.
Hinter ihnen stehen die bewaffneten Entführer.
Das Video hat keinen Ton.
mit dem obigen Makro erhalte ich jedoch :
BagdadDie Entführer der beiden deutschen Geiseln im Irak haben mit deren Tötung gedroht, sollte die Bundesregierung ihre Forderungen nicht erfüllen.Der Fernsehsender al-Arabija zeigte ein weiteres Video.Darin sind die beiden Geiseln am Boden kniend zu sehen.Hinter ihnen stehen die bewaffneten Entführer.Das Video hat keinen Ton.
Woran erkenne ich also eine Leerzeile ?
Viele Grüße
R.Schmitt