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

Forumthread: Leerzeichen am Anfang einer Zelle

Leerzeichen am Anfang einer Zelle
24.10.2007 16:05:00
Thomas
Hallo alle zusammen,
ich habe von einem Kollegen eine sehr große Tabelle erhalten. Nun seh ich, dass in sehr sehr vielen Zellen am Anfang der Zelle ein Leerzeichen steht. So kann ich diese Tabelle aber leider icht weiterverwenden.
Hat jemand evtl. einen Tip oder gar ein Makro für mich dass das Leerzichen am Anfang einer Zelle (wen dort eins steht) wegmt.
Danke im Voraus für Eure Hilfe.
Gruß
Thomas

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen am Anfang einer Zelle
24.10.2007 16:19:52
Jens
Hallo Thomas
Versuch mal so:

Sub tt()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Left(c, 1) = " " Then
c = Mid(c, 2)
End If
Next c
End Sub


Gruß aus dem Sauerland
Jens

AW: Leerzeichen am Anfang einer Zelle
24.10.2007 16:24:20
Jan
Hi,
lad mal ein kleines Beispiel hoch.
mfg Jan

Anzeige
Zellen auf dem TRIM-Dich-Pfad
24.10.2007 16:31:00
NoNet
Hallo Thomas,
per VBA kannst Du die Zellen "TRIMmen" (entspricht EXCEL-Funktion GLÄTTEN) :
Sub GlaettenPerVBA()
    Dim rngZelle As Range
    For Each rngZelle In [A1:A10]
        If rngZelle.Value Like " *" Then rngZelle = Trim(rngZelle)
    Next
End Sub

Den Bereich A1:A10 kannst Du natürlich anpassen.
Gruß, NoNet

Anzeige
Danke Euch allen o.T.
24.10.2007 17:07:00
Thomas
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Leerzeichen am Anfang einer Zelle entfernen


Schritt-für-Schritt-Anleitung

Um Leerzeichen am Anfang einer Zelle in Excel zu entfernen, kannst Du folgende Methoden verwenden:

  1. Mit VBA:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Füge ein neues Modul hinzu und kopiere den folgenden Code hinein:
    Sub LeerzeichenEntfernen()
        Dim c As Range
        For Each c In ActiveSheet.UsedRange
            If Left(c, 1) = " " Then
                c = Mid(c, 2)
            End If
        Next c
    End Sub
    • Schließe den VBA-Editor und führe das Makro aus.
  2. Mit der Excel-Funktion TRIM:

    • Wenn du keine VBA-Lösungen nutzen möchtest, kannst du die Funktion GLÄTTEN() (oder TRIM() in der englischen Version) verwenden:
    • In einer neuen Zelle: =GLÄTTEN(A1) (ersetze A1 durch die entsprechende Zelle).
    • Ziehe die Formel nach unten, um sie auf weitere Zellen anzuwenden.

Häufige Fehler und Lösungen

  • Problem: Das Makro entfernt keine Leerzeichen.

    • Lösung: Stelle sicher, dass du das Makro auf das richtige Arbeitsblatt anwendest und dass die Zellen tatsächlich Leerzeichen enthalten.
  • Problem: Die Funktion GLÄTTEN gibt unerwartete Ergebnisse zurück.

    • Lösung: Überprüfe, ob in den Zellen andere unsichtbare Zeichen vorhanden sind, die ebenfalls entfernt werden müssen.

Alternative Methoden

Neben VBA und der Funktion GLÄTTEN gibt es auch andere Möglichkeiten, Leerzeichen in Excel zu verwalten:

  • Text in Spalten: Du kannst die Funktion „Text in Spalten“ verwenden, um Text zu trennen und dabei Leerzeichen zu entfernen.
  • Suchen und Ersetzen: Nutze STRG + H, um Leerzeichen durch nichts zu ersetzen. Gib ein Leerzeichen in „Suchen“ und lasse „Ersetzen“ leer.

Praktische Beispiele

Angenommen, Du hast in Zelle A1 den Text " Beispieltext" und möchtest die Leerzeichen am Anfang entfernen:

  1. Mit VBA: Führe das oben genannte Makro aus. Nach der Ausführung wird in A1 nur noch "Beispieltext" angezeigt.
  2. Mit der Funktion GLÄTTEN: In Zelle B1 schreibst du =GLÄTTEN(A1). Das Ergebnis in B1 wird dann "Beispieltext" sein.

Tipps für Profis

  • Wenn Du häufig mit Leerzeichen in Excel arbeitest, erstelle ein Makro, das diese Aufgabe automatisiert.
  • Experimentiere mit der Funktion WENN zusammen mit GLÄTTEN, um nur Zellen zu bereinigen, die Leerzeichen enthalten:

    =WENN(LINKS(A1,1)=" ", GLÄTTEN(A1), A1)

Das hilft, den Text in der Zelle zu bewahren, wenn kein Leerzeichen vorhanden ist.


FAQ: Häufige Fragen

1. Wie kann ich Leerzeichen an einer bestimmten Stelle einfügen? Du kannst die Funktion TEXTVERKETTEN() oder VERKETTEN() verwenden, um Leerzeichen an einer bestimmten Stelle einzufügen. Beispiel: =VERKETTEN("Text1", " ", "Text2").

2. Was ist der Unterschied zwischen GLÄTTEN und der VBA-Funktion zur Leerzeichenentfernung? GLÄTTEN entfernt nur führende und nachfolgende Leerzeichen, während das VBA-Makro alle Leerzeichen am Anfang entfernt, unabhängig von ihrer Anzahl.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige