Clever-Excel-Forum

Hallo, und guten Abend

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

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

Hallo,

(13.03.2022, 20:06)Hundefreund schrieb: [ -> ]aber Irgendwie bin ich hauf dem Holzweg

das was bedeutet?

Gruß Uwe

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

Hallo,

oder auch 3. Wink

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

Code:
Private Sub Workbook_Open()

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

End Sub

@snb:

Und wenn kein Leerzeichen in Username ist?!

Gruß Uwe

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