ich habe folgendes makro hier im forum gefunden
und versucht anzupassen:
Private Sub Label11_Click()
Dim Buffer As String * 100
Dim BuffLen As Long
Application.Volatile
BuffLen = 100
GetUserName Buffer, BuffLen
FormKalendar = left(Buffer, BuffLen - 1)
End Sub
Private Sub Label12_Click()
Application.Volatile = Label12
FormKalendar = Application.UserName
End Sub
diese darstellungen waren fuer zelleintraege.
ich wollte diese fuer userfom benutzen,
d.h. label11 soll benutername in excel
und label12 soll benutzername im netz darstellen.
- mein userform heisst: formkalendar
wenn also der userform erscheint, so soll der benutzername
in position des labels11/12 erscheinen.
dank und gruss,
mehmet