9
VBA Code für Username und Datum
Hallo Zusammen,
jetzt muss ich euch schon wieder mit VBA nerven.
Ich würde gern in einem Textfeld einmal den Usernamen mit VBA aus dem Windows-Konto generieren lassen und in einem anderem Textfeld das aktuelle Datum.
Weiß vlt. jemand wie das geht?
Danke schon mal
jetzt muss ich euch schon wieder mit VBA nerven.
Ich würde gern in einem Textfeld einmal den Usernamen mit VBA aus dem Windows-Konto generieren lassen und in einem anderem Textfeld das aktuelle Datum.
Weiß vlt. jemand wie das geht?
Danke schon mal
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 210912
Url: https://administrator.de/contentid/210912
Printed on: April 16, 2024 at 15:04 o'clock
9 Comments
Latest comment
Moin,
Das Datum erfährst du mit
notfalls in Verbindung mit
Username ermittelst Du mit
(steht beides übringens in der VBA Hilfe..
)
lg.
Slainte
/EDITH: Typos
Das Datum erfährst du mit
now()format()Username ermittelst Du mit
environ$("username") (steht beides übringens in der VBA Hilfe..
)lg.
Slainte
/EDITH: Typos
Hi,
danke schon mal für deine Antwort.
Das mit now() und den Username Befehl wusste ich schon. Mein Problem ist der ganze Rest.
Du musst wissen, ich kenne mich nämlich überhaupt ned mit VBA aus. ich bin nicht mal Anwendungsentwickler.
In der VBA Hilfe hab ich nichts wirklich nützliches gefunden, sonst würde ich hier nicht fragen.
lg
danke schon mal für deine Antwort.
Das mit now() und den Username Befehl wusste ich schon. Mein Problem ist der ganze Rest.
Du musst wissen, ich kenne mich nämlich überhaupt ned mit VBA aus. ich bin nicht mal Anwendungsentwickler.
In der VBA Hilfe hab ich nichts wirklich nützliches gefunden, sonst würde ich hier nicht fragen.
lg
Das mit now() und den Username Befehl wusste ich schon. Mein Problem ist der ganze Rest.
Dann schreib das doch gleich dazu Im OnLoad des Forms
Me.FeldMitUsernamen.Value=environ$("username")
Me.FeldMitDatum.Value=now()
Hallo Sabse96!
Wobei 'now' das aktuelle Datum und die Zeit zurückgibt, ansonsten:
Gruß Dieter
Wobei 'now' das aktuelle Datum und die Zeit zurückgibt, ansonsten:
Datum = Date
Zeit = TimeGruß Dieter
Hi,
Danke noch mal für eure Antworten.
Ich hab das jetzt mal so ausprobiert aber er will das nicht anwenden.
Danke noch mal für eure Antworten.
Ich hab das jetzt mal so ausprobiert aber er will das nicht anwenden.
Gruezi Sabse,
auch wieder da ... vielleicht wäre es für die Helfenden hilfreich zu erfahren das du das ganze in InfoPath versuchst, und dort kann es mit VBA nicht klappen, da hier managed Code mit VB.NET verwendet wird.
Hier machst du dies so:
Dann baust du die Variablen
Übrigens lässt sich das in InfoPath ohne viel programmieren in den Eigenschaften der Felder hinterlegen:
Grüße Uwe
gelöste Beitrage bitte auch als solche markieren.Danke
auch wieder da ... vielleicht wäre es für die Helfenden hilfreich zu erfahren das du das ganze in InfoPath versuchst, und dort kann es mit VBA nicht klappen, da hier managed Code mit VB.NET verwendet wird.
Hier machst du dies so:
dim heute as String = CStr(DateTime.Today)
dim username as String = Environ("username") heute und username an der gewünschten Stelle ein.Übrigens lässt sich das in InfoPath ohne viel programmieren in den Eigenschaften der Felder hinterlegen:
Grüße Uwe
gelöste Beitrage bitte auch als solche markieren.Danke
Hi,
ja so hatte ich das zuerst auf definiert. Allerdings soll jetzt wieder eine Änderung vorgenommen werden und zwar soll das Formular als Vorlage jetzt direkt in Outlook zur Verfügung gestellt werden. Das ist auch kein Problem, allerdings werden dann diese Einstellungen nicht mehr angewendet sondern es funktioniert nur noch der hinterlegte Code.
Ich hab jetzt das mal ausprobiert, so wie du es da oben geschrieben hast Uwe, allerdings meckert er immer bei dem Environ und führt das dann beim Test nicht aus.
Ich hab auch schon ein paar andere Sachen noch ausprobiert, momentan versuch ich nur erst Mal einen festen Wert zu definieren den er in das Feld schreiben soll aber er macht noch nicht einmal das.
ja so hatte ich das zuerst auf definiert. Allerdings soll jetzt wieder eine Änderung vorgenommen werden und zwar soll das Formular als Vorlage jetzt direkt in Outlook zur Verfügung gestellt werden. Das ist auch kein Problem, allerdings werden dann diese Einstellungen nicht mehr angewendet sondern es funktioniert nur noch der hinterlegte Code.
Ich hab jetzt das mal ausprobiert, so wie du es da oben geschrieben hast Uwe, allerdings meckert er immer bei dem Environ und führt das dann beim Test nicht aus.
Ich hab auch schon ein paar andere Sachen noch ausprobiert, momentan versuch ich nur erst Mal einen festen Wert zu definieren den er in das Feld schreiben soll aber er macht noch nicht einmal das.
dann nimm das:
es wäre langsam mal angebracht dich mit den jeweiligen Programmiersprachen zu beschäftigen anstatt hier ständig Fragen zu Grundlagen einer Programmiersprache zu stellen.
Grüße Uwe
gelöste Beitrage bitte auch als solche markieren.Danke
dim username as String = System.Environment.GetEnvironmentVariable("username") es wäre langsam mal angebracht dich mit den jeweiligen Programmiersprachen zu beschäftigen anstatt hier ständig Fragen zu Grundlagen einer Programmiersprache zu stellen.
Grüße Uwe
gelöste Beitrage bitte auch als solche markieren.Danke
Hi Zusammen,
also es funktioniert jetzt allerdings nicht mit dem obigen Code. Zumindest ned bei mir
Hier ist er beschrieben:
http://msdn.microsoft.com/en-us/library/aa942693.aspx
(Getting the Current User's Name)
Trotzdem Danke an euch alle.
also es funktioniert jetzt allerdings nicht mit dem obigen Code. Zumindest ned bei mir
Hier ist er beschrieben:
http://msdn.microsoft.com/en-us/library/aa942693.aspx
(Getting the Current User's Name)
Trotzdem Danke an euch alle.
1