Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Leerzeichen am Anfang einer Zelle Löschen
#1
Hallo liebe clever-excel Gemeinde,

Ich stehe vor folgender Aufgabe: Eine Excel Tabelle muss in ein System importiert werden. Um das zu tun muss ich aus einer Spalte mit Text alle Leerzeichen am Anfang der Zellen entfernen. Wo also z.B. " Wort Wort Wort" steht, müsste "Wort Wort Wort" stehen. Kann mir jemand helfen eine elegantere Lösung zu finden, als jede Zelle manuell zu editieren?

Danke schonmal im Voraus!
Antworten Top
#2
Hallo!

Meinst du e so?

Tabelle2

ABC
2     asdfasdfentfernt alle Leerzeichen am Anfang des Zellinhalts
3   dfgdfg
Formeln der Tabelle
ZelleFormel
B2{=TEIL(A2;VERGLEICH(WAHR;TEIL(A2;SPALTE($2:$2); 1)<>" ";0); 99)}
Enthält Matrixformel:
Umrandende
{ } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4



Gruß
Wilfried
Antworten Top
#3
So in der Art. Ich hab es jetzt etwas umständlicher mit der Glätten Funktion hinbekommen.

Die Aufgabe ist somit erstmal erledigt. Trotzdem stellt sich mir die Frage, ob das ganze möglich wäre, ohne dass ich die Werte dann in einer andere Zelle ausgeben muss.

Danke!
Antworten Top
#4
(02.08.2017, 16:47)Wilfried Höttl schrieb: Hallo!

Meinst du e so?
...
Gruß
Wilfried

Hallo, Wilfried, also bei mir klappt das schon mal nicht... (mit Rückschreiben aus dem Internet - da sind am Anfang ZEICHEN(160)  Da scheinen Leerzeichen nicht gleich Leerzeichen zu sein...

Arbeitsblatt mit dem Namen 'Blatt1'
ABC
188
2    asdf    asdfentfernt alle Leerzeichen am Anfang des Zellinhalts

ZelleFormel
A1=LÄNGE(A2)
B1=LÄNGE(B2)
B2{=TEIL(A2;VERGLEICH(WAHR;TEIL(A2;SPALTE($2:$2); 1)<>" ";0); 99)}
Achtung, Matrixformel enthalten!
Die geschweiften Klammern{} werden nicht eingegeben.
Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#5
Ohne Hilfsspalte:
Entweder per VBA oder mir Power Query
Da werden die Werte in der gleichen Spalte geglättet.
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Antworten Top
#6
Hallo!

Eine Möglichkeit in der gleichen Zelle

Bereich makieren , Bearbeiten / Ersetzen gehen, in der Suchezeile nach, das Leerzeichen eingeben, bei Ersetzen durch nichts eingeben, auf Alle ersetzen klicken, fertig. 



Gruß
Wilfried
Antworten Top
#7
Hallo

elegantes Leerzeichen löschen geht auch über Vba, sofern es kein Sonderzeichen "160" ist.

Beim Code "Cut_Space_Selection" wird der aktuell Selektierte Bereich gelöscht.  Vorteil, der kann überall im Blatt sein!
Beim Code "Cut_Space_Range" muss man den Range Bereich im Code angeben.  Sinnvoll wenn es immer der gleiche Bereich ist!
Anbei noch ein Code für mal schnell "doppelte Werte Löschen"  (Anschliessend sortiern)

Trim schneidet beide Seiten ab, will man speciell nur Rechts / Links löschen  LTrim / RTrim verwenden.

mfg  Gast 123 

Code:
Dim AC As Range

'Trim = Trimmen beide Seiten
'LTrim = Trimme Left = Links
'RTrim = Trimme Right = Rechts


Sub Cut_Space_Selection()
For Each AC In Selection
 AC.Value = Trim(AC)
Next AC
End Sub


Sub Cut_Space_Range()
For Each AC In Range("A1:A100")
 AC.Value = Trim(AC)
Next AC
End Sub


Sub doppelte_löschn()
For Each AC In Selection
 If AC.Offset(1, 0) = AC.Value Then AC.Value = ""
Next AC
End Sub
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste