Hallo zusammen,
ich bin kurz am verzweifeln. Ich möchte einen Nachnamen und Vornamen trennen und in
2 neue Felder eintragen. Habe eine Userform - Maske mit den Feldern Tex_nam1 in der steht Kaplonsky, Hans. Der Nachname soll getrennt werden und in ein anderes Userform - Feld Tex_db_com2 eingetragen werden. Hab folgendes geschrieben, funktioniert aber nicht.
Dim famnam As Integer
intz = 1
Do Until Tex_nam1.Value = ","
famnam = InStr(Tex_nam1(intz, 1).Value, ",")
Tex_nam1(intz, 2).Value = _
Left(Tex_nam1(intz, 1).Value, famnam - 1)
intz = intz + 1
Loop