Leerzeichen und Leerzeilen löschen?
Reiner
ich habe aus einer Angebotsvorlage (GAEB Datei) eine Excelliste generieren
können.
Nun habe ich aber nach dem letzten Zeichen, Leerzeichen und leere Zeilen.
Mit Glätten bekomme ich die Leerzeichen weg aber wie die Leerzeilen?
Gruß
Reiner
Markus Lechthaler
news:%23DZFDQA...@TK2MSFTNGP10.phx.gbl...
Sofern die Reihenfolge keine Rolle spielt bekommt man Leerzeilen am
einfachsten mit SORTIEREN weg
mfg
Markus
Reiner
ich habe mich wohl falsch ausgedrückt.
Ich habe in Zellen mit Texten Leerzeilen die ich löschen möchte, aber nur
nach dem letzten Zeichen.
Gruß
Reiner
"Markus Lechthaler" <le...@sbox.tugraz.at> schrieb im Newsbeitrag
news:40e5109b$0$11742$3b21...@aconews.univie.ac.at...
Peter Wolber
> ich habe aus einer Angebotsvorlage (GAEB Datei) eine Excelliste generieren
> koennen.
> Nun habe ich aber nach dem letzten Zeichen, Leerzeichen und leere Zeilen.
> Mit Glaetten bekomme ich die Leerzeichen weg aber wie die Leerzeilen?
Vielleicht hilft der dieser Code weiter. Er wurde in dieser NG mal
gepostet:
Sub LeereZeilenLoeschen()
'
' LeerzeilenLoeschen Makro
' Alle Leerzeilen in einem Tabellenblatt werden geloescht
'
Dim letzteZeile As Long
Dim rngString As String
Dim i As Long
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
letzteZeile = ws.Range("A65536").End(xlUp).Row
rngString = vbNullString
For i = letzteZeile To 1 Step -1
If ws.Rows(i).Text = "" Then
If rngString <> vbNullString Then rngString = rngString & ","
rngString = rngString & i & ":" & i
End If
Next i
ws.Range(rngString).Delete Shift:=xlUp
End Sub
HTH
Gruss
Peter
Reiner
danke aber nicht das was ich brauche.
Ich will keine Leerzeilen löschen sondern, Leerzeilen innerhalb einer Zelle
in der Texte stehen löschen.
Aber nur nach den letzten Zeichen in der Zelle, da dort unnötige Leerzeilen
sind um eine optimale höhe einstellen zu können.
Gruß
Reiner
Jens Warnke
Hallo Reiner,
klingt für mich nach Zeilenumbruch innerhalb einer Zelle.
Markiere alle betreffenden Zellen,
dann über Format- Zellen- Ausrichtung - Zeilenumbruch,
dort den Haken rausnehmen.
Mfg
Jens
Reiner
dadurch bekomme ich diese Zeilenumbrüche inerhalb der Zelle aber nicht
heraus?
Gruß
Reiner
Jens Warnke
Hallo Reiner,
probiers doch mal mit Google
Suchbegriffe: Zeilenumbruch entfernen Excel
oder falls der Link klappen tut:
http://www.google.de/search?hl=de&ie=UTF-8&q=Zeilenumbr%C3%BCche+entfernen+Excel&btnG=Suche&meta=
975 Suchergebnisse,
da sollte schon was passendes zu finden sein. ;-)
Mfg
Jens
Lisa Wilke-Thissen
"Reiner" im Newsbeitrag
news:eEoo%23hBYE...@TK2MSFTNGP12.phx.gbl...
> dadurch bekomme ich diese Zeilenumbrüche
> inerhalb der Zelle aber nicht heraus?
ich habe ein wenig gebastelt:
=WENN(RECHTS(A1;1)=ZEICHEN(10);ERSETZEN(A1;LÄNGE(A1);1;"");A1)
(Entspricht das letzte Zeichen aus A1 dem Zeilenumbruch, dann ist das letzte
Zeichen - wurde aufgrund der Zellinhaltslänge ermittelt - durch nichts zu
ersetzen. Ansonsten Zellinhalt von A1 übernehmen).
--
Viele Grüße
Lisa
MS MVP Word
Lisa Wilke-Thissen
"Jens Warnke" schrieb im Newsbeitrag
news:2kkpseF...@uni-berlin.de...
> > dadurch bekomme ich diese Zeilenumbrüche inerhalb
> > der Zelle aber nicht heraus?
> probiers doch mal mit Google
> Suchbegriffe: Zeilenumbruch entfernen Excel
sämtliche Zeilenumbrüche zu entfernen, ist in der Tat kein Problem. Aber ich
habe verstanden, dass Reiner lediglich *einen* Zeilenumbruch am Ende einer
Zelle entfernen will.
Reiner
Danke für deine Mühe, aber es bringt nicht den nötigen Erfolg.
Ich habe aus einer Datenbank eine Tabelle erzeugt, in der Zellen sind die
hinter dem letzten Zeichen Leerzeichen und Leerzeilen. Die bekomme ich mit
deiner Formel nicht weg.
Gruß
Reiner
"Lisa Wilke-Thissen" <wilke-...@web.de> schrieb im Newsbeitrag
news:u35p4rBY...@tk2msftngp13.phx.gbl...
Jens Warnke
> Hallo Jens,
>
>
> sämtliche Zeilenumbrüche zu entfernen, ist in der Tat kein Problem. Aber ich
> habe verstanden, dass Reiner lediglich *einen* Zeilenumbruch am Ende einer
> Zelle entfernen will.
>
Hallo Lisa,
wenn ich sein Ausgangsposting durchlese
(Generierung einer Excelliste aus einem Angebot),
wage ich zu bezweifeln, daß dieses
Zeilenumbruch-Phänomen nur in einer einzigen Zelle
auftritt.
Mfg
Jens
Lisa Wilke-Thissen
"Jens Warnke" schrieb im Newsbeitrag
news:2kksg1F...@uni-berlin.de...
> > sämtliche Zeilenumbrüche zu entfernen, ist in der
> > Tat kein Problem. Aber ich habe verstanden, dass
> > Reiner lediglich *einen* Zeilenumbruch am Ende einer
> > Zelle entfernen will.
> wenn ich sein Ausgangsposting durchlese
> (Generierung einer Excelliste aus einem Angebot),
> wage ich zu bezweifeln, daß dieses
> Zeilenumbruch-Phänomen nur in einer einzigen Zelle
> auftritt.
schwerer Tag heute - Wochenende in Sicht ;-)
Gemeint ist *ein* Zeilenumbruch *je Zelle*, und zwar der überflüssige
Umbruch nach dem letzten Zeichen der jeweiligen Zelle.
Lisa Wilke-Thissen
"Reiner" schrieb im Newsbeitrag
news:uNxyeDC...@TK2MSFTNGP10.phx.gbl...
> > =WENN(RECHTS(A1;1)=ZEICHEN(10);ERSETZEN(A1;LÄNGE(A1);1;"");A1)
> >
> > (Entspricht das letzte Zeichen aus A1 dem Zeilenumbruch, dann ist das
> > letzte
> > Zeichen - wurde aufgrund der Zellinhaltslänge ermittelt - durch nichts
zu
> > ersetzen. Ansonsten Zellinhalt von A1 übernehmen).
> Danke für deine Mühe, aber es bringt nicht den nötigen
> Erfolg. Ich habe aus einer Datenbank eine Tabelle erzeugt,
> in der Zellen sind die hinter dem letzten Zeichen Leerzeichen
> und Leerzeilen. Die bekomme ich mit deiner Formel nicht weg.
deutsche Sprache - schwere Sprache ...
Ich hatte dich so verstanden, dass du die Leerzeichen bereits mit der
Funktion Glätten() entfernt hast und es nun lediglich um die Leerzeilen
(Alt+Enter) hinter dem letzten Zeichen einer Zelle geht.
Und das sollte mit meiner Formel funktionieren: Die Zelle mit dieser Formel
gibt als Ergebnis den Inhalt der Bezugszelle (A1 bzw. angepasster Zellbezug)
wieder, jedoch *ohne* die leere Zeile am Ende des Zellbezugs.
Ansonsten bitte ein Beispiel liefern mit dem gewünschten Ergebnis.
Möglicherweise ist eine Lösung ohne VBA gar nicht möglich.
Reiner
Rohr DN 125 wie vor beschrieben.
Diese Zeichen sind zb. aus einer Zelle.
Hinter dem Text sind 18 Leerzeichen und ein Zeilenumbruch.
2 Zeile 58 Leerzeichen und Zeilenumbruch und so zieht es sich durch die ges.
Tabelle.
Gruß
Reiner
"Reiner" <re...@web.de> schrieb im Newsbeitrag
news:uNxyeDC...@TK2MSFTNGP10.phx.gbl...
Reiner
ich habe es mit Glätten() versucht. Es bleiben trotzdem 1 leerzeichen hinter
dem Text
und in der 2 Zeile vor dem Zeilenwechsel stehen.
Gruß
Reiner
"Lisa Wilke-Thissen" <wilke-...@web.de> schrieb im Newsbeitrag
news:e4cKQOCY...@TK2MSFTNGP12.phx.gbl...
Jens Warnke
> Hallo Ihr beiden,
>
> Rohr DN 125 wie vor beschrieben.
>
>
> Diese Zeichen sind zb. aus einer Zelle.
> Hinter dem Text sind 18 Leerzeichen und ein Zeilenumbruch.
> 2 Zeile 58 Leerzeichen und Zeilenumbruch und so zieht es sich durch die ges.
> Tabelle.
>
> Gruß
> Reiner
>
Hallo Reiner,
falls du sicherstellen kannst,
daß zwischen den einzelnen Worten nie mehr als 2 Leerzeichen
stehen, probier einfach
= Links(A1; Finden(" ";A1;1 ))
Dann hast du zwar immer noch ein paar Leerzeichen am Schluß zuviel,
aber die Zeilenumbrüche sind garantiert weg.
(Sonst müssen wir wirklich über VBA nachgrübeln) ;-)
Mfg
Jens
Reiner
das kann ich leider nicht siehe Bsp.
Fabrikat: Sikla o.glw.
Typ: Stabil 3D
Ich habe in dem Bsp. sogar vor dem Text 8 Leerzeichen die mich aber nicht
stören!!
Gruß
Reiner
"Jens Warnke" <Jewa...@web.de> schrieb im Newsbeitrag
news:2kkvclF...@uni-berlin.de...
Jens Warnke
> Hallo Jens,
> das kann ich leider nicht siehe Bsp.
>
> Fabrikat: Sikla o.glw.
> Typ: Stabil 3D
>
> Ich habe in dem Bsp. sogar vor dem Text 8 Leerzeichen die mich aber nicht
> stören!!
> Gruß
> Reiner
>
Hallo Reiner,
vorletzter Versuch:
Die Funktion Säubern() entfernt normalerweise alle nichtdruckbaren
Zeichen aus einem Text, wenn man das nun mit Glätten kombiniert,
a la
= Glätten(Säubern(Glätten(A1))) ;-)
Dann sollte das klappen.
Mfg
Jens
Reiner
guten Morgen konnte Freitag nicht mehr antworten hatte Feierabend.
Deine Formel löscht mir alle Zeilenwechsel!!
Hier noch einmal einer von vielen Zelleninhalten.
1Z Rohr DN 50 wie vor beschrieben. 8 Leerz. vorne 19 Leerz. hinten
und Zeilenwechsel
2Z 58
Leerzeichen und Zeilenwechsel
3Z leer
ich möchte hinter dem Text alles gelöscht haben.
Der Text kann auch mehrzeilig sein, aber am ende immer das gleiche, unnötige
Leerzeichen und Zeilen.
Die Leerzeichen vor dem Text sind mir noch egal!
Gruß
Reiner
"Jens Warnke" <Jewa...@web.de> schrieb im Newsbeitrag
news:2kl4f6F...@uni-berlin.de...
Lisa Wilke-Thissen
"Reiner" <re...@web.de> schrieb im Newsbeitrag
news:eaSW11kY...@TK2MSFTNGP12.phx.gbl...
> > > Fabrikat: Sikla o.glw.
> > > Typ: Stabil 3D
> guten Morgen konnte Freitag nicht mehr antworten
> hatte Feierabend.
> Deine Formel löscht mir alle Zeilenwechsel!!
> Hier noch einmal einer von vielen Zelleninhalten.
>
> 1Z Rohr DN 50 wie vor beschrieben. 8 Leerz. vorne
> 19 Leerz. hinten und Zeilenwechsel
> 2Z 58 Leerzeichen und Zeilenwechsel
> 3Z leer
> ich möchte hinter dem Text alles gelöscht haben.
> Der Text kann auch mehrzeilig sein, aber am ende
> immer das gleiche, unnötige Leerzeichen und Zeilen.
> Die Leerzeichen vor dem Text sind mir noch egal!
mit 1Z, 2Z und 3Z sind vermutlich 1., 2. und 3. Zeile innerhalb einer Zelle
gemeint ...
Ich kenne nicht deine Excel-Version. Aber mit deinen Beispielen funktioniert
es unter Excel 2003 recht gut, die Inhalte über den Befehl "Daten/ Text in
Spalten/ Feste Breite ..." sauber in eigene Spalten aufzuteilen (was der
Mehrzeiligkeit innerhalb einer Zelle eigentlich vorzuziehen ist) und dabei
die Spalten mit den Zeilenumbrüchen zu entfernen.
Reiner
vielen Dank für deinen Tipp so klappt es.
Ich weiß nur nicht wie sich das GAEB-Programm verhält, weil die
Zeilenumbrüche entfernt wurden.
Es sind ja exportierten Dateien und nach der Eingabe der Preise,muß ich sie
wieder zurücklesen.
Gruß
Reiner
"Lisa Wilke-Thissen" <wilke-...@web.de> schrieb im Newsbeitrag
news:OyCl72l...@TK2MSFTNGP12.phx.gbl...
Eberhard Funke
"Reiner" <re...@web.de> schrieb:
mir fehlt der Anfang des Threads, deshalb kann mein Vorschlag an
Deiner Frage vorbeigehen.
Ich nehme mal an, daß die obigen Angaben (1Z....2Z...3Z...) in EINER
Zelle stehen.
Falls Du Deine Zeilenumbrüche mit Alt+Enter eingefügt hast, dann
probier mal, ähnlich wie von Jens vorgeschlagen:
=Glätten(A1) (aber ohne Säubern!)
und dann wieder unter Format --> Zellen -->Zeilenumbruch wählen
--
Gruß Eberhard
XL 2000