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