Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen mit Monatsangabe speichern?

Dateinamen mit Monatsangabe speichern?
20.12.2007 10:44:00
Pascal
Hallo zusammen,
habe mal wieder eine kleine Frage zu VBA.
Ich habe ein Makro erstellet, das eine Ergebnistabelle erstellt und diese in eine andere Arbeitsmappe übergibt.
Da es sich um eine monatliche Abfrage handelt, möchte ich, dass zusätzlich zum Dateinamen unter dem ich die neu erstelle Arbeitsmappe speichern will noch eine Angabe zum Datum, ab dem greift angefügt wird.
Die aktuell erstelle Datei soll also die Endung "Jan08.xls" erthalten.
Ist das irgendwie möglich?
Den Wert könnte ich evtl in eine Zelle schreiben lassen, aus meinen Daten kann ich über eine max() Formel das Datum 01.01.2008 ausgeben lassen, falls das hilft.
Für Hilfe wäre ich sehr dankbar.
Viele Grüße
Pascal

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen mit Monatsangabe speichern?
20.12.2007 11:13:11
otto
Hi,

Sub Speichern()
Dim dateiPfad As String
Dim Name As String
Dim Datum As String
dateiPfad = "C:\Dokumente und Einstellungen\"
Name = ThisWorkbook.Name & ".xls"
Datum = Format(Date, "MMMYY")
ThisWorkbook.SaveAs Filename:=(dateiPfad & Name & Datum) _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub


Gruß
otto

AW: Dateinamen mit Monatsangabe speichern?
20.12.2007 11:20:45
Pascal
Hallo Otto,
schonmal danke für die schnelle Antwort.
Das sieht auch ganz gut aus, allerdings wird ja der aktuelle Monat ausgegeben, also demnach Dez07. Ich benötige aber den Jan08 Wert.
Weißt Du, wie ich das hinbekommen kann`?
Gruß
Pascal

Anzeige
AW: Dateinamen mit Monatsangabe speichern?
20.12.2007 11:27:00
otto
Hi,
so:

Sub Speichern()
Dim dateiPfad As String
Dim Name As String
Dim Datum As String
dateiPfad = "C:\Dokumente und Einstellungen\"
Name = ThisWorkbook.Name & ".xls"
Datum = "Jan08"
ThisWorkbook.SaveAs Filename:=(dateiPfad & Name & Datum) _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub


Gruß
otto

AW: Dateinamen mit Monatsangabe speichern?
20.12.2007 11:30:00
Pascal
Hi,
ich glaube ich habe das vorhin falsch beschrieben.
Wenn ich jetzt fix Jan08 eingebe, dann muss ich das jeden Monat manuell ändern. Die Datei wird jeden Monat erstellt und soll immer den Folgemonat als Endung haben, also sprich im Januar soll dann die Endung "Feb08" enthalten sein...
Gruß

Anzeige
AW: Dateinamen mit Monatsangabe
20.12.2007 11:35:40
Erich
Hallo Pascal,
probier mal 

Option Explicit
Sub Speichern()
Dim dateiPfad As String, strName As String, Datum As String
dateiPfad = "C:\Dokumente und Einstellungen\"
strName = ThisWorkbook.Name & ".xls"
Datum = Format(DateSerial(Year(Date), Month(Date) + 1, 1), "MMMYY")
ThisWorkbook.SaveAs Filename:=(dateiPfad & strName & Datum), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Name ist ein geschütztes Wort in VBA (eine EIgenschaft) und sollte nicht als Variablenname verwendet werden.
Deshalb strName.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Dateinamen mit Monatsangabe
20.12.2007 11:50:00
Pascal
Hallo Erich,
habe es noch leicht abgeändert (Dateityp ergänzt), aber es läuft, vielen Dank.
Jetzt bleibt allerdings noch eine Frage offen, die ich bisher nicht bedacht habe.
Ich möchte die Datei während des Programmabschnittes noch weiter bearbeiten.
habe versucht sie durch
Windows("strName & Datum & Dateityp").Activate
anzusprechen. Leider funktioniert das bei mir irgendwie nicht. Wie spricht man denn eine solche Datei an?
Gruß
Pacal

AW: Dateinamen mit Monatsangabe
20.12.2007 12:01:02
Daniel
Hi
zum Beispiel mit
WINDOWS(ThisWorkbook.name).actiate
Gruß, Daniel

AW: Dateinamen mit Monatsangabe
20.12.2007 12:51:00
Erich
Hallo Pascal,
auch nach dem SaveAs ist die Datei offen und aktiv, sie muss also gar nicht aktiviert werden.
Statt
WINDOWS(ThisWorkbook.name).activate
wäre einfacher
ThisWorkbook.activate
oder analog:
Workbooks(strName & Datum & Dateityp).Activate
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
hat geklappt! o T
20.12.2007 13:14:47
Pascal
Hallo Erich,
musste die Datei nochmal ansprechen, weil ich ja vorher aus einer anderen Datei Werte geholt habe, die ich übertragen wollte.
Aber mit Workbooks(strName & Datum & Dateityp).Activate hat es tatsächlich geklappt, ich hatte vergessen die Anführungszeichen rauszunehmen.
Vielen Dank und viele Grüße
Pascal

AW: Dateinamen mit Monatsangabe
20.12.2007 11:52:00
Daniel
Hi
ich empfehle, Dateien die mit Monatsständen abgelegt werden, einen Dateizusatz in der Form: JJJJ-MM zu geben (also "2007-12", wer mit Zahlen nicht so gut umgehen kann meintet wegen auch "2007-12 Dez").
hat einfach den Vorteil, daß auch in alphabetisch geordneten Listen (Dateimanager) die Reihenfolge immer richtig ist.
Gruß, Daniel
Anzeige

305 Forumthreads zu ähnlichen Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Anzeige
Mit Makro Excel-Datei unter anderem User speichern
Med

Hallo,
suche eine Lösung für folgendes Szenario:
1)Nutzer mit Leseberechtigung öffnet ExcelTabelle.
2)Makro speichert aktuellen Benutzernamen in eine externe Datei.
3)Benutzer macht Änderungen an der Datei.
4)Durch klick auf einen Button in der Excel-Tabelle wird diese mit...
16.02.2009 17:10:00
Thread-ID: 1051227
7 Beiträge
Datei-Kopie mit Datum und Zeit speichern
Lenni

Moin Excellianer!
Mit folgender Anweisung speicher ich eine Excel-Datei an einem "2.Ort"

Me.SaveCopyAs "F:\Buero\Excel\MeinProjekt\" & Me.Name
Nun möchte ich aber meine Datei immer aktuell mit Datum und Zeit abspeichern. Bei meiner Recherche im Archiv habe ich dann folge...
20.02.2009 20:26:00
Thread-ID: 1052545
3 Beiträge
Datei speichern unter mit Zellverknüpfung
herbi

Hallo,
habe schon viel im Forum gesucht, komme aber mit meinem Problem nicht weiter.
habe eine Datei mit Namen z.b. test.xls
in Zelle b8 steht ein Datum, im Format TT.MM.YYYY zum Beispiel 01.03.2009
ich möchte per Makro die "Datei speichern unter" den alten Namen um das Datum de...
04.03.2009 14:12:05
Thread-ID: 1056392
5 Beiträge
Datei mit akt. Tagesdatum speichern. Wie?
stefan

hallo,
ich ändere fast jeden tag etwas an einer datei. wie kann ich beim speichern automatisch eine version mit dateiname_aktuelles_datum.xls anlegen?
danke für eure hinweise.
05.03.2009 14:54:05
Thread-ID: 1056872
2 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
2
5
9
6
2
4
1
3
4
3
4
1
1
3
13
4
2
4
7
3
13
3
6