Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA speichern

VBA speichern
09.06.2017 08:52:59
Tina
Guten Morgen,
eine VBA Auswertung läuft am Tag ca. 7mal diese heißt : StammdatenTL.xlsm
Ich möchte gerne über einen Button das die Datei automatisch in L:\Lager\Allgemein\Tom\Liste\
gespeichert wird.
Es Soll aber gespeichert werden unter den User und Datum und Uhrzeit als xlsm gespeichert werden.
z.b.
Jorg_25102017_13:14:16
Wäre das irgendwie machbar?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA speichern
09.06.2017 09:06:59
EtoPHG
Hallo Tina,
so?: 
Sub SpeichernAls()
ThisWorkbook.SaveCopyAs "L:\Lager\Allgemein\Tom\Liste\" & _
Environ("username") & "_" & _
Format(Now, "DDMMYYYY_HH:MM:SS") & _
".xlsm"
End Sub
Gruess Hansueli
AW: VBA speichern
09.06.2017 09:24:50
Tina
Hallo,
leider kommt ein Fehler :
Laufzeitfehler 1004
L:\Lager\Allgemein\Tom\Liste\Ott_09062017_09:22:16.xlsm würde nicht gefunden .......
AW: VBA speichern
09.06.2017 09:27:22
EtoPHG
Hallo Tina,
Vermutlich gibt es das Verzeichnis nicht, oder das Laufwerk L: ist falsch oder nicht gemapped.
Ich kann das nicht kontrollieren, da ich nicht auf deinen Compi sehe!
Gruess Hansueli
Anzeige
AW: VBA speichern
09.06.2017 10:15:34
Tina
Hey nochmal testest und es ohne Datum und Uhrzeit dann geht es. aber nicht mit Datum und uhrzeit
Sub SpeichernAls()
ThisWorkbook.SaveCopyAs "L:\Lager\Allgemein\Tom\Liste\" & _
Environ("username") & ".xlsm"
End Sub

AW: VBA speichern
09.06.2017 10:38:27
Matthias
Hallo! Das Problem ist m.E., dass die einzelnen Werte der Uhrzeit mit einem Doppelpunkt getrennt sind. Der darf aber in einem Dateinamen nicht vorkommen. Da vllt. nochmal schauen, wie der Dateiname anders ausschauen sollte. Das Datum würde gehen nur die Zeit sollte anders formatiert werden. VG
Da hast du recht
09.06.2017 10:56:15
EtoPHG
Matthias,
...das ist mir durch die Lappen gegangen, also: 
ThisWorkbook.SaveCopyAs "L:\Lager\Allgemein\Tom\Liste\" & _
Environ("username") & "_" & _
Format(Now, "DDMMYYYY_HHmmss") & _
".xlsm"
Gruess Hansueli
Anzeige
AW: VBA speichern
09.06.2017 10:48:50
MCO
Hi!
Nimm den folgenen Code, dann sollte es klappen:
pfad_L = "L:\Lager\Allgemein\Tom\Liste\"
Nam = application.username
wb_nam = pfad_L & Nam &"_"& replace(cstr(Date),".","") &"_"& time & ".xlsm"
ActiveWorkbook.SaveCopyAs wb_nam
msgbox "Gespeichert unter " & chr(10) & wb_nam,vbinformation+vbokonly,"Alles gut!"
Gruß, MCO
AW: VBA speichern + Uhrzeitformat
09.06.2017 10:53:17
MCO
'Stimmt, Uhrzeit mit doppelpunkt lässt sich nicht als Pfad verwenden
pfad_L = "L:\Lager\Allgemein\Tom\Liste\"
Nam = application.username
wb_nam = pfad_L & Nam &"_"& replace(cstr(Date),".","") &"_"& replace(cstr(time),":","_") & ".xlsm"
ActiveWorkbook.SaveCopyAs wb_nam
msgbox "Gespeichert unter " & chr(10) & wb_nam,vbinformation+vbokonly,"Alles gut!"
'Gruß, MCO
Anzeige
Danke an alle
09.06.2017 10:57:32
Tina
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige