✔ Vor- Nachname trennen

[yidaki]

Hallo zusammen,

ich hab ein excel-sheet mit einem feld indem vor- und nachname zusammen stehen.

Nachname ist großbuchstaben, Vorname in Kleinbuchstaben...

Es gibt allerdings Doppelnamen und theoretisch auch Nachnamen wie VAN DEN HAAG oder so.

Eines der "schlimmen" Felder würde z.b. so aussehen.

"VAN DEN HAGG Christoph Patrick"

hat jemand ne idee, wie ich das mit ner funktion oder nem kleinen Skript ausseinanderfitscheln kann..

bin dankbar für jede Hilfe

gruß,

Kai

 

[NeMeSiS1987]

Hi,

hab auf die schnelle mal was zusammengbastelt:

Dim str, str1, str2 As String
    Dim stelle As Integer
    
    str = cells(x,x).Value
    stelle = 1
    While (Asc(Right(str, Len(str) - stelle))) < 96
        stelle = stelle + 1
    Wend
    str1 = Left(str, stelle - 2)
    str2 = Right(str, Len(str) - stelle + 1)
    
    Debug.Print str1
    Debug.Print str2

Vielleicht gibt es bessere Lösungen aber es sollte klappen

 

[yidaki]

ja, klappt nicht schlecht

... er bricht allerdings bei Umlauten bzw. "ß" ab.

ansonsten funktioniert es


hiermit läufts dann komplett durch ;-)

    If (Len(str) > 0) Then
        While (Asc(Right(str, Len(str) - stelle))) < 96 And (Asc(Right(str, Len(str) - stelle + 1))) < 96 And (Asc(Right(str, Len(str) - stelle + 1))) > 27 And (Asc(Right(str, Len(str) - stelle))) > 27
            stelle = stelle + 1
            If (stelle > 200) Then
                i = i + 1
                str = Cells(i, 3).Value
                stelle = 1
            End If
        Wend
        On Error Resume Next
        str1 = Left(str, stelle - 2)
        'str1 = Left(str, Len(str) - stelle - 1)
        str2 = Right(str, Len(str) - stelle + 1)
        
        Cells(i, 4).Value = str1
        Cells(i, 5).Value = str2
    End If