Hallo zusammen,
ich habe das Makro von Andi Beck => http://ww3.cad.de/foren/ubb/Forum2/HTML/023352.shtml#000012
für unseren Schriftkopf modifiziert, nur mit dem Problem das ich den User über das Pulldownmenü eintrage, da wir aber Weltweit Vertretungen haben, sollte man es über einen command Button erledigen, wie das bei dem AutoDate auch ganz gut funktioniert.
hier ist der Code für das AutoDate
Private Sub cmdAutoDate_Click()
' aktuelle sGez-Datum im datumsfeld eintragen
txtSfGezDatum = Format(Date, "dd.mm.yy")
End Sub
hier ist der Code für den UserName
Private Sub cmdGetUserName_Click()
' aktuelle sGez-Datum im datumsfeld eintragen
txtSfGezeichnetdurch = Name
End Sub
Function GetUserName() As String
On Error Resume Next
Dim objWSHNetwork As Object
Set objWSHNetwork = CreateObject("WScript.Network")
GetUserName = objWSHNetwork.UserName
Debug.Print objWSHNetwork.ComputerName
Debug.Print objWSHNetwork.UserDomain
Set objWSHNetwork = Nothing
End Function
Bei Bedarf stelle ich auch das kpl. Makro incl. Rahmen und Teil zur Verfügung.
Oder kann man das auch anhand einens API Befehls direkt in das Makro einbinden, damit es den User ausliest und dann über den command Button eintragen kann.
Ich möchte es in einem Makro kombiniert haben, da ich eine .exe aus dem Makro erstelle und es den jeweiligen Personen bzw. Niederlassungen zukommen lassen und direkt einbinde, damit Sie es benutzen können.
Danke im voraus
Mc Fly
hier erscheit aber dann immer "Zeichnungskopf_ausfüllen" der Name des gesamten Makros
------------------
Ich sehe in jedem Mensch zuerst das positive, enttäuscht werde ich noch früh genug.
[Diese Nachricht wurde von Mc Fly am 04. Feb. 2013 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP