Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

benutzername userform darstellen

benutzername userform darstellen
20.06.2005 02:27:54
mehmet
guten morgen forum,
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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: benutzername userform darstellen
20.06.2005 05:51:29
Hajo_Zi
Hallo mehmet,
welches Betriebssystem?
Benutzer laut Excel Application.UserName
Benuetzer Netz Environ("USERNAME")
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: benutzername userform darstellen
20.06.2005 05:54:40
Xelleron
Guten Morgen Mehmet,
ich habe so etwas ähnliches, vielleicht hilft Dir das auch weiter:

Private Sub UserForm_Initialize()
Dim sVersion As String
Me.Caption = "Aktueller Benutzer: " & Application.UserName
End Sub

Gruß Dennis
Anzeige
AW: benutzername userform darstellen
20.06.2005 13:20:30
Hajo_Zi
Hallo mehmet,
dann hastr Du wohl Betriebssystem 95/98
schaue mal hier
Beispieldatei
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: benutzername userform darstellen
20.06.2005 13:31:13
mehmet
hallo hajo,
komisch, ich habe xp!
auch wenn ich
Option Explicit
Dim BName As String
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
einfuege, erhalte ich eine fehlermeldung auf label12
gruss
mehmet
Anzeige
AW: benutzername userform darstellen
20.06.2005 13:59:55
mehmet
hallo hajo,
ich bekomme folgende fehlermeldung:
"fehler beim kompilieren:
projekt oder bibliothek nicht gefunden"
und im makro

Private Sub UserForm_Initialize()
Dim sVersion As String
Me.Label11 = Application.UserName
Me.Label12 = Environ("username")
End Sub

wird environ markiert
gruss
mehmet
AW: benutzername userform darstellen
20.06.2005 14:46:33
Hajo_Zi
Hallo mehmet,
unter XP kann ich es erst wieder am Abend testen. Ich bin mir eigentlich sicher das ich das am Homecomputer schon getestet habe.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: benutzername userform darstellen
20.06.2005 18:10:06
Hajo_Zi
Hallo Mehmet,
ich habe es jetzt unter XP Home getestet ohne Problem. Folgende verweise sind gsetzt.
Beispieldatei
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: benutzername userform darstellen
21.06.2005 08:45:28
mehmet
hallo hajo,
dank dir
es hat geklappt
gruss
mehmet

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige