|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Benutzer auslesen und im Dateiname abspeichern |
20.02.2018 14:04:25 |
Manuel |
|
|
|
20.02.2018 14:27:02 |
Gast21651 |
|
|
|
20.02.2018 14:57:22 |
Manuel |
|
|
|
20.02.2018 15:14:17 |
Gast61440 |
|
|
|
20.02.2018 15:18:46 |
Gast75887 |
|
|
|
20.02.2018 15:31:58 |
Gast37352 |
|
|
Von:
Manuel |
Datum:
20.02.2018 14:04:25 |
Views:
1032 |
Rating:
|
Antwort:
|
Thema:
Benutzer auslesen und im Dateiname abspeichern |
|
Hallo zusammen,
ich möchte folgendes realisieren: aktuell wird die Datei geöffnet und über ein Makro wird die Datei gespeichert - es wird automatisch das Datum und die Uhrzeit mit abgespeichert (im Datei namen)
Jetzt möchte ich noch zusätzlich den aktuellen Benutzer auslesen - wenn man jetzt über das Makro speichert soll zusätzlich zum Datum und Uhrzeit noch der Benutzer angegeben werden, welcher die Datei abgespeichert hat.
Sub Speichern()
Dim DatumUhrzeit As String
Dim Pfad As String
Pfad = "mein Ablagepfad"
DatumUhrzeit = Format(Now, "DD" & "." & "MM" & "." & "YYYY" & "_" & "hh" & "." & "mm" & "." & "ss") 'Wird zu 08.02.2018_9.40.34
ActiveWorkbook.SaveAs Filename:=Pfad & "Dateiname " & DatumUhrzeit & ".xlsm"
End Sub
Wie müsste ich den Code jetzt erweitern, um hier noch den Benutzer ausgeben zu lassen? Ich hoffe, es kann mich hier jemand unterstützen :)
Vielen Dank vorab und viele Grüße Manuel
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Benutzer auslesen und im Dateiname abspeichern |
20.02.2018 14:04:25 |
Manuel |
|
|
|
20.02.2018 14:27:02 |
Gast21651 |
|
|
|
20.02.2018 14:57:22 |
Manuel |
|
|
|
20.02.2018 15:14:17 |
Gast61440 |
|
|
|
20.02.2018 15:18:46 |
Gast75887 |
|
|
|
20.02.2018 15:31:58 |
Gast37352 |
|
|