Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBA Code für Username und Datum

Mitglied: Sabse96

Sabse96 (Level 1) - Jetzt verbinden

09.07.2013 um 08:39 Uhr, 2788 Aufrufe, 9 Kommentare

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
Mitglied: SlainteMhath
09.07.2013, aktualisiert um 08:51 Uhr
Moin,

Das Datum erfährst du mit
01.
now()
notfalls in Verbindung mit
01.
format()
Username ermittelst Du mit
01.
environ$("username")

(steht beides übringens in der VBA Hilfe.. )

lg.
Slainte

/EDITH: Typos
Bitte warten ..
Mitglied: Sabse96
09.07.2013 um 09:06 Uhr
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
Bitte warten ..
Mitglied: SlainteMhath
09.07.2013 um 09:10 Uhr
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
01.
Me.FeldMitUsernamen.Value=environ$("username") 
02.
Me.FeldMitDatum.Value=now()
Bitte warten ..
Mitglied: 76109
09.07.2013 um 09:13 Uhr
Hallo Sabse96!

Wobei 'now' das aktuelle Datum und die Zeit zurückgibt, ansonsten:
01.
Datum = Date 
02.
Zeit = Time
Gruß Dieter
Bitte warten ..
Mitglied: Sabse96
09.07.2013 um 09:32 Uhr
Hi,

Danke noch mal für eure Antworten.

Ich hab das jetzt mal so ausprobiert aber er will das nicht anwenden.
Bitte warten ..
Mitglied: colinardo
09.07.2013, aktualisiert um 10:06 Uhr
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:
01.
dim heute as String = CStr(DateTime.Today) 
02.
dim username as String = Environ("username")
Dann baust du die Variablen 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:

0b849f681fb6e96f6378731d521c39fc - Klicke auf das Bild, um es zu vergrößern

23110a23ce5d9f5f067e2904970066ec - Klicke auf das Bild, um es zu vergrößern


Grüße Uwe
gelöste Beitrage bitte auch als solche markieren.Danke
Bitte warten ..
Mitglied: Sabse96
09.07.2013 um 11:39 Uhr
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.
Bitte warten ..
Mitglied: colinardo
09.07.2013, aktualisiert um 11:49 Uhr
dann nimm das:
01.
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
Bitte warten ..
Mitglied: Sabse96
09.07.2013 um 13:39 Uhr
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.
Bitte warten ..
Ähnliche Inhalte
Microsoft
Mit VBA-Code ein Verzeichnis erstellen
gelöst Frage von DockMaster-deMicrosoft2 Kommentare

Hallo, ich habe mit MS Access 2010 eine Datenbank und ein Frontend. Daten werden über ein Formular eingegeben. Ich ...

Basic
Formeln in VBA Code einfügen
gelöst Frage von Dett18Basic6 Kommentare

Hallo liebe Excel VBA Gemeinde, ich habe hier eine Buchungsdatei, die mit Daten einer Rechnung gefüllt wird. Da ich ...

Microsoft Office
Kreuztabelle Access + VBA Code
Frage von Dr.CornwallisMicrosoft Office7 Kommentare

Hallo zusammen, ich habe eine Kreuztabelle aus einer Query erzeugt, aus dieser entsteht wiederum ein Bericht, nun habe ich ...

VB for Applications
Excel VBA Code
gelöst Frage von specialuserVB for Applications2 Kommentare

Hallo zusammen, Hab hier einen Button in einer Excel mit Makros erstellt. Der Button hat die Funktion aus der ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 7 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 10 StundenAdministrator.de Feedback10 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...