Zelleninhalt ab dem zweiten Komma löschen

Forumthread: Zelleninhalt ab dem zweiten Komma löschen

30.01.2018 20:11:20

TomGie

Hallo zusammen,
ich habe folgendes Anliegen, welches ich leider nicht mit meinen VBA Kenntnissen lösen kann:
In der Spalte C meiner Tabelle sind in jeder Zelle der Namen und Adresse hinterlegt, leider sind die Namen nicht immer einheitlich...
Bsp für Zelleninhalte der Spalte C:
Max Mustermann, Teststraße 1, Wunschort1, 12345, DE
Max, Mustermann, Teststraße 2, Wunschort2, 23456, DE
Max Maxi Mustermann, Teststraße 3, Wunschort3, 34567, DE
Ich möchte nun immer folgendes Ergebnis bekommen:
Max Mustermann
Max Mustermann
Max Maxi Mustermann
Meine bisherigen Gedanken zu den Bedinungen sind:
- Wenn Textteil vor dem 1. Komma ein (oder mehrere) Leerzeichen enthält, dann ab dem 1. Komma den Rest löschen
- Wenn Wenn Textteil vor dem 1. Komma KEIN Leerzeichen enthält, dann ab dem 2. Komma den Rest löschen UND das 1. Komma löschen, damit Vorname + Nachname dasteht
Das Makro sollte für die ganze Spalte automatisch ablaufen, dh bis zum letzeten Wert in der Spalte C
Ich wäre euch sehr sehr dankbar, wenn ihr eine Lösung für mich hättet.
Beste Grüße
TomGie

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelleninhalt ab dem zweiten Komma löschen

30.01.2018 20:38:27

Daniel
als Formel

30.01.2018 21:04:53

lupo1
AW: eine Formellösung ...

30.01.2018 20:46:06

...
AW: Zelleninhalt ab dem zweiten Komma löschen

30.01.2018 21:08:14

TomGie

AW: Zelleninhalt ab dem zweiten Komma löschen

30.01.2018 20:38:27

Daniel

Hi
probiers mal so:


Sub test()
Dim Zelle As Range
Dim TeilTexte
For Each Zelle In Columns(3).SpecialCells(xlCellTypeConstants, 2)
TeilTexte = Split(Zelle.Value, ",")
If UBound(TeilTexte) > 0 Then
If InStr(TeilTexte(0), " ") > 0 Then
Zelle.Value = TeilTexte(0)
Else
Zelle.Value = TeilTexte(0) & TeilTexte(1)
End If
End If
Next
End Sub

ich würde aber vorher die Spalte C kopieren und woanders einfügen, damit du nachher mit dem alten Text vergleichen kannst um zu prüfen, ob der code richtig arbeitet.
Gruß Daniel

als Formel

30.01.2018 21:04:53

lupo1

=LINKS(WECHSELN(WENN(FINDEN(",";A1)&ltFINDEN(" ";A1);WECHSELN(A1;",";;1);A1);",";WIEDERHOLEN(" ";99));99)

AW: eine Formellösung ...

30.01.2018 20:46:06

...

Hallo Tom
... ist zwar nicht gefragt. Diese könnte aber z.B. so aussehen:
=WENN(LÄNGE(LINKS(C1;FINDEN(",";C1)-1))-LÄNGE(WECHSELN(LINKS(C1;FINDEN(",";C1)-1);" ";""))=0;
LINKS(WECHSELN(C1;",";"";1);FINDEN(",";WECHSELN(C1;",";"";1))-1);LINKS(C1;FINDEN(",";C1)-1))
Gruß Werner
.. , - ...

AW: Zelleninhalt ab dem zweiten Komma löschen

30.01.2018 21:08:14

TomGie

Daniel du geiler Typ :) !!!!
Hat auf Anhieb perfekt geklappt, hab vielen lieben Dank :)
Besten Dank auch an lupo1 und neopa C, wird bestimmt auch sehr gut klappen, ich brauche aber unbedingt die VBA Lösung.

Infobox / Tutorial

Zelleninhalt ab dem zweiten Komma löschen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Zelleninhalt ab dem zweiten Komma in Excel zu löschen, kannst Du entweder ein VBA-Makro verwenden oder eine Formel anwenden. Hier ist die Anleitung für das VBA-Makro:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Sub test()
   Dim Zelle As Range
   Dim TeilTexte
   For Each Zelle In Columns(3).SpecialCells(xlCellTypeConstants, 2)
       TeilTexte = Split(Zelle.Value, ",")
       If UBound(TeilTexte) > 0 Then
           If InStr(TeilTexte(0), " ") > 0 Then
               Zelle.Value = TeilTexte(0)
           Else
               Zelle.Value = TeilTexte(0) & TeilTexte(1)
           End If
       End If
   Next
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Wähle die Spalte C aus und führe das Makro aus. Es wird automatisch den Inhalt ab dem zweiten Komma löschen.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass Du die Spalte C korrekt ausgewählt hast und dass die Zellen in der Spalte tatsächlich Werte enthalten.
Fehler: Der Zelleninhalt wird nicht wie gewünscht bearbeitet.
- Lösung: Überprüfe den Code und stelle sicher, dass die Kommas in den Zellen korrekt gesetzt sind. Möglicherweise kannst Du die Split-Funktion anpassen.

Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch Formeln nutzen, um den Zelleninhalt ab dem zweiten Komma zu löschen. Eine mögliche Formel könnte so aussehen:

=WENN(LÄNGE(LINKS(C1;FINDEN(",";C1)-1))-LÄNGE(WECHSELN(LINKS(C1;FINDEN(",";C1)-1);" ";""))=0;
LINKS(WECHSELN(C1;",";"";1);FINDEN(",";WECHSELN(C1;",";"";1))-1);LINKS(C1;FINDEN(",";C1)-1))

Diese Formel analysiert den Inhalt in Zelle C1 und entfernt alles ab dem zweiten Komma.

Praktische Beispiele

Wenn Du beispielsweise in Zelle C1 den Inhalt Max Mustermann, Teststraße 1, Wunschort1, 12345, DE hast, wird nach der Ausführung des VBA-Makros oder der Formel der Zelleninhalt auf Max Mustermann reduziert.

Ein weiteres Beispiel:

Eingang: Max, Mustermann, Teststraße 2, Wunschort2, 23456, DE
Ausgang: Max Mustermann

Tipps für Profis

Backup erstellen: Bevor Du das Makro ausführst, erstelle eine Kopie der Spalte C, um den originalen Inhalt für den Fall eines Fehlers zu sichern.
Makros anpassen: Du kannst das Makro anpassen, um spezielle Anforderungen zu berücksichtigen, z.B. nur bestimmte Zeilen oder Bereiche zu bearbeiten.
Formeln effizient nutzen: Bei großen Datenmengen kann die Formel deutlich langsamer sein als das Makro. Nutze das Makro für eine schnellere Verarbeitung.

FAQ: Häufige Fragen

1. Frage
Kann ich das VBA-Makro für andere Spalten verwenden?
Ja, Du kannst das Makro anpassen, indem Du die Columns(3)-Anweisung auf die gewünschte Spalte änderst.

2. Frage
Funktioniert das auch in Excel 365?
Ja, sowohl das VBA-Makro als auch die Formeln funktionieren in Excel 365 einwandfrei.

Beliebteste Forumthreads (12 Monate)

Zelleninhalt ab dem zweiten Komma löschen

Forumthread: Zelleninhalt ab dem zweiten Komma löschen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zelleninhalt ab dem zweiten Komma löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread