UserName - Results =Split

[Hundefreund]

Hallo, und guten Abend

Ich versuche mein UserName (Schulz Mustermann)
auf zwei Zellen aufzuteilen

aber Irgendwie bin ich hauf dem Holzweg

Private Sub Workbook_Open()
   
    Dim UserName As String
    Dim Firstame As String
    Dim Lastname As String

    Dim Results() As String
   
    UserName = Environ("Username")
    UserName = "LastnameFirstname"
    Results = Split(UserName)
   
    Lastname = Results(0)
    Firstname = Results(1)
   
    Sheets("Stamm").Range("d15") = Environ("Username")
    Sheets("Stamm").Range("d16") = Results(1)
    Sheets("Stamm").Range("d17") = Results(0)
   
End Sub


wo ist mein Denkfehler ???
habt Ihr eine Idee

[Kuwer]

Hallo,

aber Irgendwie bin ich hauf dem Holzweg

das was bedeutet?

Gruß Uwe

[Hundefreund]

das Ich ein oder zwei Fehler habe
er splittet den Usernamen nicht

[Kuwer]

Hallo,

oder auch 3.

1.: Schreibe in Zeile 1 des Moduls
Option Explicit
zum Erkennen des Fehlers.

2.: Statt
UserName = "LastnameFirstname"
besser mit Leerzeichen als Trenner
UserName = "Lastname Firstname"

3.: Statt
Firstname = Results(1)
besser mit Prüfung
If UBound(Results) > 0 then Firstname = Results(1)

Gruß Uwe

[snb]

Code:

Private Sub Workbook_Open()
 if instr(Environ("Username")," ") then cells(15,4).resize(2)=application.transpose(split(environ("username")))
End Sub

[Kuwer]

@snb:

Und wenn kein Leerzeichen in Username ist?!

Gruß Uwe

[snb]

Das ist nicht das Thema dieser Thread, schau mal #1

[Kuwer]

Das ist nicht das Thema dieser Thread, schau mal #1

Genau da steht UserName = "LastnameFirstname" !

[snb]

Das #1 fängt an mit:

Ich versuche mein UserName (Schulz Mustermann)

[Hundefreund]

Und Ihr seid wahre Hellseher 

Auf dem einen Rechner habe ich den Vornamen und Nachnahmen mit Lehrzeichen getrennt
Und auf dem anderen ohne 
Also habt Ihr beide Recht
Und ich setz mich gleich ran, beide Versionen von euch umzusetzen
Oder kann ich die auch in eine Anwendung stecken und dann kombinieren lassen
Wie entweder bzw. oder ???
Aber erstmal egal
Habt dank
Ich Berichte über mein Ergebnis