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

Forumthread: Alles nach dem 1. Leerzeichen löschen

Alles nach dem 1. Leerzeichen löschen
julia
Hi,
ich bräuchte ein Makro.
In Spalte F von F2 bis letzter Eintrag in F.
Lösche alles ab dem 1. Leerzeichen (incl. dem Leerzeichen)
Gruß
Julia
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 10:05:43
Hajo_Zi
Hallo Julia,
warum Makro, mache es doch mit Hilfsspalte.
Tabelle1
 FG
1'12 3312
2123123

verwendete Formeln
Zelle Formel Bereich
G1 =WENN(ISTFEHLER(LINKS(F1;FINDEN(" ";F1)-1));F1;LINKS(F1;FINDEN(" ";F1)-1)) 
G2 =WENN(ISTFEHLER(LINKS(F2;FINDEN(" ";F2)-1));F2;LINKS(F2;FINDEN(" ";F2)-1)) 

Tabellendarstellung in Foren Version 5.38



Anzeige
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 10:14:48
ing.grohn
Hallo Julia,
geht das auch?:
Tabelle1

 FG
14test test
15test2test2
16die ist eindie
17zweiter Testzweiter
18noch ein Wertnoch
19nun ist Schlußnun

Formeln der Tabelle
ZelleFormel
G14=WENN(ISTFEHLER(FINDEN(" ";F14)); F14;LINKS(F14;FINDEN(" ";F14)-1))
G15=WENN(ISTFEHLER(FINDEN(" ";F15)); F15;LINKS(F15;FINDEN(" ";F15)-1))
G16=WENN(ISTFEHLER(FINDEN(" ";F16)); F16;LINKS(F16;FINDEN(" ";F16)-1))
G17=WENN(ISTFEHLER(FINDEN(" ";F17)); F17;LINKS(F17;FINDEN(" ";F17)-1))
G18=WENN(ISTFEHLER(FINDEN(" ";F18)); F18;LINKS(F18;FINDEN(" ";F18)-1))
G19=WENN(ISTFEHLER(FINDEN(" ";F19)); F19;LINKS(F19;FINDEN(" ";F19)-1))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 10:44:25
julia
Danke - Aber wenn ich das in ein Makro einbauen möchte?
Alles in Spalte F. Ab F2 bis letzter Eintrag in F?
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 11:13:28
Rudi
Hallo, Sub Julia() Dim rngC As Range Application.ScreenUpdating = False For Each rngC In Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)) rngC = Split(rngC, " ")(0) Next End Sub
Gruß
Rudi
Anzeige
Index außerhalb des gültigen Bereichs
21.02.2011 12:09:15
julia
rngC = Split(rngC, " ")(0)
leere Zellen?
21.02.2011 12:14:37
Rudi
Hallo,
dann so:
  For Each rngC In Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)).SpecialCells( _
xlCellTypeConstants)
rngC = Split(rngC, " ")(0)
Next

Gruß
Rudi
Danke
21.02.2011 14:52:06
julia
Klappt
Danke :)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Alles nach dem 1. Leerzeichen löschen in Excel


Schritt-für-Schritt-Anleitung

Um in Excel alles nach dem 1. Leerzeichen zu löschen, kannst du folgende Schritte ausführen:

  1. Hilfsspalte verwenden: Füge neben deiner Spalte F eine neue Spalte G hinzu, um die Daten temporär zu verarbeiten.

  2. Formel eingeben: In Zelle G2 gibst du die folgende Formel ein, um alles nach dem ersten Leerzeichen zu löschen:

    =WENN(ISTFEHLER(LINKS(F2;FINDEN(" ";F2)-1));F2;LINKS(F2;FINDEN(" ";F2)-1))
  3. Formel nach unten ziehen: Ziehe die untere rechte Ecke von G2 nach unten, um die Formel auf die restlichen Zellen in Spalte G anzuwenden.

  4. Werte kopieren: Kopiere die Ergebnisse in Spalte G und füge sie in Spalte F als Werte ein. Dies kannst du mit „Inhalte einfügen“ > „Werte“ tun.

  5. Hilfsspalte löschen: Lösche die Hilfsspalte G, um deine Tabelle zu bereinigen.


Häufige Fehler und Lösungen

  • Fehler: #WERT!: Dies passiert, wenn es in der Zelle kein Leerzeichen gibt. Um dies zu umgehen, ist die oben genannte Formel bereits darauf ausgelegt, diesen Fehler abzufangen.

  • Doppelte Leerzeichen: Wenn deine Daten doppelte Leerzeichen enthalten, kannst du diese mit der Formel =WECHSELN(F2; " "; " ") vor dem Löschen der Daten entfernen.


Alternative Methoden

Eine weitere Möglichkeit, alles nach dem ersten Leerzeichen in Excel zu löschen, ist die Verwendung eines Makros. Hier ist ein einfaches VBA-Skript:

Sub AllesNachLeerzeichenLoeschen()
    Dim rngC As Range
    Application.ScreenUpdating = False
    For Each rngC In Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp))
        rngC.Value = Split(rngC.Value, " ")(0)
    Next
    Application.ScreenUpdating = True
End Sub

Dieses Skript löscht alles nach dem ersten Leerzeichen in der Spalte F, beginnend bei F2.


Praktische Beispiele

Beispiel 1: Wenn in Zelle F2 der Text „Hallo Welt“ steht, wird das Ergebnis in Zelle G2 „Hallo“ sein.

Beispiel 2: Für den Text „Max Mustermann“ in Zelle F3 wird in Zelle G3 „Max“ angezeigt.

Du kannst diese Methoden auf alle Zellen in Spalte F anwenden und damit in Excel alles nach Leerzeichen löschen.


Tipps für Profis

  • Verwende die Funktion =TEXTVERKETTEN oder =TEXTKETTE für komplexere Datenanalysen, wenn du mehrere Leerzeichen oder Zeichen entfernen möchtest.

  • Überlege, die Funktion =RECHTS in Kombination mit =LÄNGE zu verwenden, um präzisere Ergebnisse zu erzielen, wenn du nach bestimmten Zeichen löschen willst.

  • Speichere deine Arbeit regelmäßig, besonders wenn du Makros verwendest, um Datenverlust zu vermeiden.


FAQ: Häufige Fragen

1. Wie kann ich alles nach einem bestimmten Zeichen löschen? Du kannst die FINDEN-Funktion in Kombination mit LINKS verwenden, um alles nach einem bestimmten Zeichen zu entfernen, indem du das Zeichen anstelle des Leerzeichens angibst.

2. Gibt es eine Möglichkeit, Leerzeichen in einer gesamten Tabelle zu entfernen? Ja, du kannst die Funktion =WECHSELN verwenden, um alle Arten von Leerzeichen in einer Tabelle zu entfernen. Beachte, dass dies auch doppelte Leerzeichen umfasst.

Nutze diese Methoden, um in Excel alles nach dem ersten Leerzeichen zu löschen und deine Daten effektiv zu bereinigen!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige