Hallo,
das geht am einfachsten mit einer Schleife:
Public Sub Nachname_eintragen()
If InStr(1, Application.UserName, ",", vbTextCompare) <> 0 Then
Dim i As Integer
For i = 9 To 1000
Worksheets("Tabelle1").Cells(i, 1) = Left(Application.UserName, InStr(1, Application.UserName, "e", vbTextCompare) - 1)
Next i
Else
MsgBox "Der Benutzername """ & Application.UserName & """ enthält kein "","".", vbInformation, "Abbruch"
End If
End Sub
Nicht von der If-Abfrage Irritieren lassen - ich prüfe nur vorab ob in dem Benutzernamen überhaupt ein Komma vorkommt - ansonsten würde der Aufruf eine Ausnahme auslösen.
Gruß
SJ
|