Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelleninhalt ab dem zweiten Komma löschen

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
Anzeige
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)
Anzeige
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.

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige