Vorname Name Trennen

Ich habe eine Excel Tabelle mit mit 6500 Adressdaten.
Leider sind die Namen mit Vor- und Nachname in einer Spalte.
Das ganze sieht momentan so aus.

	A	B	C	D	E	F
1	Anrede	Name	Nachname	Straße	PLZ	Ort
2	Herrn	Manfred Mustermann		Musterstraße 16	42567	Musterstadt
3	Frau	Eva Maria Schmidt		Eisengasse 10	67567	Rückenhausen
4	Frau	Margrit Gilbert-Schnepp		Tipstraße 12	67534	Redstadt

Kann mir jemand den VBA-Code dafür verraten der die Tabelle so aussehen lässt?

	A	B	C	D	E	F
1	Anrede	Name	Nachname	Straße	PLZ	Ort
2	Herrn	Manfred	Mustermann	Musterstraße 16	42567	Musterstadt
3	Frau	Eva Maria	Schmidt	Eisengasse 10	67567	Rückenhausen
4	Frau	Margrit	Gilbert-Schnepp	Tipstraße 12	67534	Redstadt

Währe nett wenn mir da jemand helfen könnte, ist nämlich sehr wichtig.
gestern habe ich die selbe Frage schonmal gestellt. Entschuldigung für das Mehrfachposting. Gestern habe ich auch eine Antwort bekommen aber in einer Formel. Damit kann ich leider garnichts anfangen, brauche unbedingt eine VBA-Lösung für dieses Problem weil in den Zellen der Tabelle keine Formeln stehen dürfern. Es müssen umbedingt nach ausführen eines Makros eigene Zellen ohne Bezüge zu anderen Zellen sein. Muss aus den ganzen 6500 Adressen diese Woche noch ein Mailing machen.
Für eure Bemühungen bedanke ich mich schonmal im Voraus.
Gruß, W. Schmitz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Wolle,
deine Tabelle ist doch wie geschaffen für die Formeln.
In D2 folgende Arrayformel:
{=WENN(ANZAHL(FINDEN({" von ";" zu ";" ob ";" van ";" de "};B2));TEIL(B2;MIN(WENN(ISTZAHL(FINDEN({" von ";" zu ";" ob ";" van ";" de "};B2));FINDEN({" von ";" zu ";" ob ";" van ";" de "};B2)))+1;99);TEIL(B2;MAX((TEIL(B2;SPALTE($1:$1);1)=" ")*SPALTE($1:$1))+1;99))}
Die {geschweiften Klammern} aussenrum darfst du nicht mit eingeben. Schließe die Formeleingabe nicht mit Enter, sondern gleichzeit mit Strg-Shift-Enter ab. So werden die { } aussenrum automatisch erzeugt. Aber das hatte ich auch schon geschrieben...
In C2 folgende Formel für den Vornamen incl. Titel:
=GLÄTTEN(LINKS(B2;LÄNGE(B2)-LÄNGE(D2)))
Jetzt einfach beide Formeln runterkopieren.
Anschließend kannst du dann die Spalten C und D kopieren und über "Inhalte einfügen - Werte" wieder einfügen. Dann sind die Formeln wieder futsch.
Grüße Boris

Sub trennen() Dim Ganze As String Dim leerpos As Integer Dim vorname As String Dim name As String Dim laenge As Integer Dim i As Integer For i = 1 To 6000 Ganze = Cells(i, 2) leerpos = InStr(Ganze, " ") vorname = Mid(Ganze, 1, leerpos) laenge = Len(Ganze) nachname = Mid(Ganze, leerpos, laenge) Cells(i, 2) = vorname Cells(i, 3) = nachname Next i End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

132 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vorname Name Trennen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

132 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread