Makro-Speichern unter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makro-Speichern unter
von: Gunter
Geschrieben am: 11.11.2003 08:16:06

Hallo Zusammen,
ich benötige ein Makro, bei dem ich den Pfad der zu speichernden Datei fest hinterlege ( z.B. D:\Bestellungen\2003\.
Weiterhin soll bei dem abspeichern das aktuelle Tagesdatum vorangestellt werden.
Hier habe ich einen Abschnitt der zum Teil funktioniert:
ThisWorkbook.SaveAs s & "\" & "-" & Format(Now, "yyyy-mm-dd") & "-BM" & ".xls"
Wenn möglich sollte der Eintrag -BM durch einen Platzhalter ersetzt werden, sodaß der Benutzer die Vorgabe 2003-11-11 "+ Name" den Namen selber eintragen kann.
Danke im voraus.

Gunter

Bild


Betrifft: AW: Makro-Speichern unter
von: Lutz
Geschrieben am: 11.11.2003 08:57:30

Hallo Gunter,

meinst Du so:


Sub Speichern()
x = InputBox("Unter welchem Namen soll diese Datei gespeichert werden?")
ThisWorkbook.SaveAs s & "\" & "-" & Format(Now, "yyyy-mm-dd") & "-" & x & ".xls"
End Sub


Gruß Lutz


Bild


Betrifft: AW: Inputbox mit Vorgabewert
von: Galenzo
Geschrieben am: 11.11.2003 09:01:09

Hallo,
na da hast du's ja fast schon:

Const s ="D:\Bestellungen\2003"
Dim bm
bm=Inputbox("Dateiname:","Speichern als",Format(Now, "yyyy-mm-dd") & "-BM")
ThisWorkbook.SaveAs s & "\" & "-" & bm & ".xls"

Das öffnet die ein Eingabefenster, in dem der gewünschte Dateiname eingetragen werden kann. Als Vorgabe (der 3. Parameter bei Inputbox) steht die Vorgabe drin.
Und schließlich wird dann der komplette Dateiname aus den Einzeleilen zusammengesetzt

Viel Erfolg!


Bild


Betrifft: Danke Euch beiden. Gruß Gunter
von: Gunter
Geschrieben am: 11.11.2003 09:11:49

Danke Euch beiden. Gruß Gunter


Bild

Beiträge aus den Excel-Beispielen zum Thema " MB ZAhl bei Verzeichnis "