Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Führende Leerzeichen entfernen

Forumthread: Führende Leerzeichen entfernen

Führende Leerzeichen entfernen
12.06.2003 14:57:21
Bernhard
Hallo,

wie kann ich per Makro fürhrende Leerzeichen (keines, eines oder mehrere) entfernen ?

Gruß

Bernhard Stillger

Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: =glätten(A1)
12.06.2003 15:00:05
Nike

Hi,

vielleicht reicht das ja schon ;-)

Bye

Nike

Re: Führende Leerzeichen entfernen
12.06.2003 15:00:08
Georg_Zi

Hallo Bernhard

LTrim

Gruß hajo

Re: =glätten(A1)
12.06.2003 15:02:01
Bernhard

Im Prinzip ja, in diesem Problem leider nein.

Da es sich um ein recht komplexes Sheet handelt kann ich nicht mit einer Feld Formel arbeiten.

Es muß schon automatisiert, global gehen.

Eine weiterer, kreativer Vorschlag ?

Bernhard Stillger

Anzeige
Re: =glätten(A1)
12.06.2003 15:02:43
Sempi

...ist ja der Hit !!!! Klasse Befehl.


Sempi

Re: Führende Leerzeichen entfernen
12.06.2003 15:06:27
Bernhard

Danke, aber auch dies erfodert zu viel handarbeit bei mehreren tausend Zeilen und 165 Spalten

Danke.

Bernhard Stillger

Re: Führende Leerzeichen entfernen
12.06.2003 15:08:28
Georg_Zi

Hallo Bernhard

das stimmt schon das Makro muß erst geschrieben werden. Aber was ist dann am starten des Makros zu viel Handarbeit??

Gruß hajo

Anzeige
Das war es nciht ;-)
12.06.2003 15:12:06
Bernahrd

Danke für die Formeln, leider war das nicht die gesuchte Lösung, da es sich um ein recht umfangreiches Sheet handelt.

Vielleicht als Makro ?

Bernhard Stillger

Re: Führende Leerzeichen entfernen
12.06.2003 15:12:46
Ramses

Hallo,

ein bischen was muss man schon tun.
Hokus Pokus geht halt nicht in EXCEL

Sub StartTrim()
For i = 1 to Range("A65536").End(xlup).Row
For n = 1 to 165
Cells(i,n).Value = LTrim(Cells(i,n).Value)
Next n
Next i
End Sub

Das ist keine Handarbeit, ... das ist Geistesarbeit :-),.... und noch nicht mal eine grosse.

Gruss Rainer


Anzeige
offtopic ! Post bekommen? oT
12.06.2003 15:14:32
andreas e



Etwa so ?
12.06.2003 15:15:45
Bernhard

Meinst Du in etwa so:

Sub Leerzeichen_links_weg()
Dim laR As Long, i As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR
LTRIM(Cells(i, 1).Value)
Next i
End Sub


Gruß

bernhard Stillger

Re: offtopic ! Post bekommen? oT
12.06.2003 15:17:02
Nike

Hi,

noch nicht, wird wohl wenn dann heute erst hier aufschlagen.
Melde mich auf jeden Fall, wenn's soweit ist ;-)

Bye

Nike

Anzeige
Re: offtopic ! Post bekommen? oT
12.06.2003 15:19:28
Bernhard

Nein, bis jetzt noch nicht.

Bernhard Stillger

Re: offtopic ...
12.06.2003 15:34:04
Nike

Hi Bernhard,

da war ich gemeint, daher Offtopic ;-)

Bye

Nike

Re: Oder so ...
12.06.2003 15:59:34
Nike

Hi,
so ginge es auch:

Bye

Nike

Anzeige
Re: Oder auch so ...
12.06.2003 16:26:05
Alf

Dim cells As Range
For Each cells In Sheets(1).UsedRange
cells = LTrim(cells)
Next cells

Ist das nicht am Kürzesten?

Ciao
Alf

Re: ja, aber ;-)
12.06.2003 16:29:08
Nike

Hi Alf,
klar is das kürzer, aber ich wollt doch unbedingt zeigen,
das ich auch die Funktion Left beherrsche B-)
Warum trimmen, wo nix zu trimmen is ;-)

Bye

Nike

Anzeige
Re: ja, aber ;-) und offtopic
12.06.2003 16:35:37
Alf

Hallo Nike!

Hey, LEFT kannte ich noch gar nicht... ;-)

Hast Du eigentlich mein Mail bekommen?

Ciao
Alf

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Führende Leerzeichen in Excel effizient entfernen


Schritt-für-Schritt-Anleitung

Um führende Leerzeichen in Excel zu entfernen, kannst Du die Funktion LTrim oder ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung für beide Methoden.

1. Mit der Excel-Funktion LTrim:

  • Öffne die Excel-Datei.
  • Wähle die Zelle aus, in der Du das führende Leerzeichen entfernen möchtest.
  • Verwende die folgende Formel:
     =LTrim(A1)
  • Kopiere die Formel in die anderen Zellen, in denen Du die Leerzeichen entfernen möchtest.

2. Mit VBA:

  • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  • Füge ein neues Modul ein (Rechtsklick auf "VBAProject" > Einfügen > Modul).
  • Kopiere und füge den folgenden Code ein:
     Sub StartTrim()
         Dim i As Long, n As Long
         For i = 1 To Range("A65536").End(xlUp).Row
             For n = 1 To 165
                 Cells(i, n).Value = LTrim(Cells(i, n).Value)
             Next n
         Next i
     End Sub
  • Schließe den VBA-Editor und führe das Makro aus.

Häufige Fehler und Lösungen

  • Problem: Die Funktion LTrim funktioniert nicht.

    • Lösung: Stelle sicher, dass Du die richtige Formel verwendest und dass die Zellreferenz korrekt ist.
  • Problem: Das Makro entfernt nur die führenden, nicht die nachfolgenden Leerzeichen.

    • Lösung: Verwende zusätzlich die RTrim-Funktion oder Trim, um auch nachfolgende Leerzeichen zu entfernen:
      Cells(i, n).Value = Trim(Cells(i, n).Value)

Alternative Methoden

Wenn Du Excel leerzeichen am Anfang und Ende entfernen möchtest, kannst Du auch die TRIM-Funktion verwenden:

=TRIM(A1)

Diese Funktion entfernt sowohl führende als auch nachfolgende Leerzeichen.

Für den Fall, dass Du mit Access arbeitest, kannst Du die Trim-Funktion in Access VBA verwenden, um vba leerzeichen aus string entfernen.


Praktische Beispiele

  1. Beispiel mit Excel-Formel:

    • Angenommen, in Zelle A1 steht: " Beispieltext".
    • Mit der Formel =LTrim(A1) wird der Text in B1 zu "Beispieltext".
  2. Beispiel mit VBA:

    • Wenn Du ein großes Datenblatt hast und alle führenden Leerzeichen entfernen möchtest, kannst Du das vorherige Makro verwenden, um die gesamte Spalte automatisch zu bereinigen.

Tipps für Profis

  • Nutze TRIM, wenn Du sowohl führende als auch nachfolgende Leerzeichen entfernen möchtest.
  • Zwischen den Leerzeichen in einem Text sollten keine doppelten Leerzeichen sein. TRIM kann helfen, diese zu bereinigen.
  • Wenn Du regelmäßig mit Daten arbeitest, die führende Leerzeichen enthalten, erwäge, ein Makro in Deine Arbeitsmappe zu integrieren, um den Prozess zu automatisieren.

FAQ: Häufige Fragen

1. Wie kann ich führende Leerzeichen in mehreren Spalten gleichzeitig entfernen? Um führende Leerzeichen in mehreren Spalten zu entfernen, passe das VBA-Makro an, um mehrere Spalten zu durchlaufen.

2. Was ist der Unterschied zwischen LTrim und Trim in VBA? LTrim entfernt nur die führenden Leerzeichen, während Trim sowohl führende als auch nachfolgende Leerzeichen entfernt.

3. Gibt es eine Formel, die auch nachfolgende Leerzeichen entfernt? Ja, die TRIM-Funktion entfernt sowohl führende als auch nachfolgende Leerzeichen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige