Hallo,
Jaein, also ich brauch sowas.
Hab dein Text von Left kopiert und bei mir eingefügt.
Mir zeigt er jetzt einen Laufzeitfehler an:
Laufzeitfehler 5, Ungültiger Prozeduraufruf oder ungültiges Argument.
Bin noch am anfang bei vba.
Iwo ist da ein Fehler drin. Leider keine Ahnung was. Ich hoffe du kannst mir da weiterhelfen!
Mein Code jetzt:
Private Sub CommandButton6_Click()
ActiveSheet.Shapes.Range(Array("CommandButton6")).Select
ActiveCell.Value = Application.UserName
Application.UserName = Left(Application.UserName, InStr(1, Application.UserName, ",", vbTextCompare) - 1)
End Sub
Gruß
K.W.
|