Vornamen, Nachnamen und Titel trennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Robert
Danke.
Das ist eigentlich ne gute Idee.
Aber (mein Fehler)
Michael schrieb ja ganz zu Anfang
...die Aufgabe besteht darin, die Titel in eine Zelle und jeweils auch den Vornamen und den Nachnamen in eine Zelle.
...
Mein Fehler war es, dass ich halt alle Namensteile in eigene Zellen "packte", was ja so nicht gewollt war.
Hi Michael
Tausch den Code gegen diesen aus: Sub sbAuslesen() Dim lloZeile As Long, larstrSplit1() As String, larstrSplit2() As String, liTitel As _ Integer, liName As Integer For lloZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row larstrSplit1 = Split(Range("A" & lloZeile).Value, ".") larstrSplit2 = Split(Trim(larstrSplit1(UBound(larstrSplit1))), " ") For liName = 0 To UBound(larstrSplit2) - 1 Range("C" & lloZeile).Value = Range("C" & lloZeile).Value & larstrSplit2( _ liName) & " " Next Range("D" & lloZeile).Value = larstrSplit2(UBound(larstrSplit2)) For liTitel = 0 To UBound(larstrSplit1) - 1 Range("B" & lloZeile).Value = Range("B" & lloZeile).Value & larstrSplit1( _ liTitel) & "." Next Next End Sub
Aber trotzdem gilt.
Bitte nich nur schreiben "es geht nich", sondern auch schreiben "was genau geht nicht, was genau passiert stattdessen"
Passt es denn jetzt?
Ciao
Thorsten

Hallo!
Hier eine Formellösung die ich gefunden habe.
Name4

	A	B	C	D	E	F	G	H	I
1	Titel und Name trennen
2	auf vier Spalten aufteilen
3	Voller Name	Titel	Vorname	Name	Adelsprädikat
4	Dr. Dr. Wilfried Höttl	Dr. Dr.	Wilfried	Höttl				von	Dr.
5	Anna Huber		Anna	Huber				van	Prof.
6	Dr. jur. Petra Heinzl	Dr. jur.	Petra	Heinzl				van der	Prof. Dr.
7	Anna Marlen Borchardt		Anna Marlen	Borchardt					Dr. jur.
8	Karl Maria von Weber		Karl Maria von	Weber	von				Frau
9	Fritz Graf zu Eulenburg		Fritz Graf zu	Eulenburg					Ms
10	Gräfin Charlotte von der Lippe		Gräfin Charlotte von der	Lippe	von				Ing.
11	Prof. Dr. Franz ob der Tauber	Prof. Dr.	Franz ob der	Tauber					Mag.
12	Fredi Moser		Fredi	Moser					Dr. Dr.
13	Frau Renate Feuerstein	Frau	Renate	Feuerstein					AA
14	Ing. Kurt Sommer	Ing.	Kurt	Sommer					BB
15	Mag. Karin Endl	Mag.	Karin	Endl					CC
16	Prof. Norbert Mittermeier	Prof.	Norbert	Mittermeier
17	CC Robert Fuchs	CC	Robert	Fuchs

Formeln der Tabelle

Zelle	Formel
B4	{=WENN(MAX(WENN((I$4:I$16>"")ISTZAHL(SUCHEN(I$4:I$16;A4)1); ZEILE($1:$12); ))=0;"";INDEX(I$4:I$16;MAX(WENN((I$4:I$16>"")ISTZAHL(SUCHEN(I$4:I$16;A4)1); ZEILE($1:$12); ))))}
C4	=TEIL(A4;LÄNGE(B4)+(B4>"")+1;LÄNGE(A4)-LÄNGE(B4&D4)-(B4>"")-1)
D4	{=TEIL(A4;MAX((TEIL(A4;SPALTE(1:1); 1)=" ")*SPALTE(1:1))+1;999)}
E4	{=WENN(MAX(WENN((H$4:H$13>"")ISTZAHL(SUCHEN(H$4:H$13;A4)1); ZEILE($1:$10); ))=0;"";INDEX(H$4:H$12;MAX(WENN((H$4:H$13>"")ISTZAHL(SUCHEN(H$4:H$13;A4)1); ZEILE($1:$10); )))&" ")}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß
Wilfried

Beliebteste Forumthreads (12 Monate)

Vornamen, Nachnamen und Titel trennen

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

132 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vornamen, Nachnamen und Titel trennen

34 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)

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread