Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.06.2025 16:23:59
VBA - Makro Erstellung
18.06.2025 11:18:30
Excel Forum
18.06.2025 09:11:04
Datei beim beenden unter 2 Formaten automatisch speichern
17.06.2025 22:07:43
Gesamtliste mit mehreren Blättern und ...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsformat für Dateinamen umstellen

Forumthread: Datumsformat für Dateinamen umstellen

Datumsformat für Dateinamen umstellen
05.09.2014 10:35:01
Frank
Hallo zusammen,
ich habe in meiner Tabelle im Feld D1 ein Datum eingetragen. Das Format dazu ist typischerweis TT.MM.JJJJ
D1 = 28.8.2014
Ich möchte nun per Makro die Datei zwei mal automatisch speichern. Der Speichernamen soll dabei das Datum aus D1 im Format YYYY-MM-DD aufnehmen. In diesem Beispiel lautet er also
2014.08.28_Ratingübersicht.csv
und
2014.08.28_Ratingübersicht.xlsx
Wie bekomme ich das hin? Ich hab für die csv bis jetzt so experimentiert (und das ziemlich erfolglos):

Sub Speichern_als_CSV()
Dim Datei As Date
Datei = Range("A1").NumberFormat = "YYYY-MM-DD"
activeWorkbook.SaveAs Filename:=Datei, FileFormat:=xlCSV
End Sub

Die xlsx hab ich mir lieber noch gar nicht angeschaut.
Und kann ich die Hinweise, die Excel so gerne beim Speichern einer CSV ausspuckt, auch unterbinden?
Gruß
Frank

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#automatisierung #datenformatierung #speicheroptionen
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Datumsformat für Dateinamen umstellen
05.09.2014 10:36:51
Hajo_zi
Hallo Frank,
Datei = Format(Range("A1"), "YYYY-MM-DD")

AW: Datumsformat für Dateinamen umstellen
05.09.2014 11:05:12
Frank
Halo Hajo,
das klappt leider nicht. Ich habe jetzt folgendes Makro

Sub Speichern_als_CSV()
Datei As Date
Datei = Format(Range("A1"), "YYYY-MM-DD")
ActiveWorkbook.SaveAs Filename:=Datei, FileFormat:=xlCSV
End Sub

Excel sagt mir Fehler beim Kompilieren. Anweisung außerhalb eines Typen-Blocks ungültig.

Anzeige
AW: Datumsformat für Dateinamen umstellen
05.09.2014 11:09:58
Hajo_zi
ich vermute Datei enthält das was Du wolltest. Ich hätte ja auch einen Ordner angegeben. Sollte nach dem Datum nicht noch was stehen?
Du Solltest Datei auch als String definieren.
Gruß Hajo

Anzeige
AW: Datumsformat für Dateinamen umstellen
05.09.2014 11:37:31
Frank
Läuft leider immer noch nicht.
1. Den Zusatz "_Ratingübersicht" konnte ich einbauen, das klappt auch.
2. Ein Ordner ist ja eigentlich nicht nötig, VBA nimmt den gleichen Ordner, aus dem in die Datei geöffnet habe. Wäre aber schon schöner/ besser, wenn ich einen Ordner angeben könnte. Hin und wieder hauen unsere Server etwas quer ;-)
Kannst Du mir da helfen?
3. Ich habe mit MsgBox mal die Variable "Datei" abgerufen. Excel gibt mir im Typ String "Falsch" heraus. Bei "Date" 00:00:00 und bei "Integer" 0. Der grundsätzliche Ablauf klappt, nur heißt meine Datei halt Falsch_Ratingübersicht.csv.
Was mach ich falsch?
Gruß
Frank

Anzeige
AW: Datumsformat für Dateinamen umstellen
05.09.2014 11:40:56
Hajo_zi
ich sehe den geänderten Code nicht. Du hast meinen Beitrag komplett gelesen?
Gruß Hajo

AW: Datumsformat für Dateinamen umstellen
05.09.2014 12:29:27
Frank
Hallo Hajo,
hier der neue Code

Sub Speichern_als_CSV()
Dim Datei As String
Datei = Range("A1").NumberFormat = "YYYY-MM-DD"
'MsgBox Datei
ActiveWorkbook.SaveAs Filename:=Datei & "_Ratingübersicht", FileFormat:=xlCSV
End Sub


Gruß
Frank

Anzeige
AW: Datumsformat für Dateinamen umstellen
05.09.2014 12:17:34
Rudi
Hallo,
2 Fehler.
1. fehlt Dim.
2. ergibt Format(...) einen String.
ergo:
Dim Datei as string
Gruß
Rudi

AW: Datumsformat für Dateinamen umstellen
05.09.2014 12:28:34
Frank
Hallo Rudi,
Dim Datei as String und Dim Datei as Date klappen leider beide nicht.
Gruß
Frank

was klappt nicht? owT
05.09.2014 13:09:12
Rudi

Anzeige
AW: was klappt nicht? owT
05.09.2014 13:50:58
Frank
Hallo Rudi,
ich hatte das bei Hajo auch schon probiert. Ich bekomme dann folgende Ergebnisse für "Datei", wenn ich die MsgBox anwerfe:
Ich habe mit MsgBox mal die Variable "Datei" abgerufen. Excel gibt mir im Typ String "Falsch"
heraus. Bei "Date" 00:00:00 und bei "Integer" 0. Der grundsätzliche Ablauf klappt, nur heißt meine
Datei halt Falsch_Ratingübersicht.csv.
Gruß
Frank

Anzeige
dann kein Datum in A1!!! owT
05.09.2014 13:54:37
Rudi

AW: dann kein Datum in A1!!! owT
05.09.2014 14:10:39
Frank
Mehr Datum geht nicht. Ich habe das Feld sogar mit der Funktion =Datum(2014;8;29) beschossen. Klappt einfach nicht.

AW: dann kein Datum in A1!!! owT
08.09.2014 10:45:10
Udo
Hai,
kann es sein, dass es einfach nur: 
Datei = Format(Range("D1"), "YYYY-MM-DD")
heißen muss ?
Gruß
Udo

Anzeige
AW: dann kein Datum in A1!!! owT
08.09.2014 11:31:13
Frank
Hallo Udo,
hallo auch an die anderen, die mir so super weiter geholfen haben.
Ich habe jetzt mit Euren Ideen und mit ein bischen Literatur folgende Lösung erstellt. Und sie läuft sauber durch.

Sub Speichern_als()
Dim Datei As String
'*** Datum für Dateinamen aus D1 aufnehmen und umformatieren ***
Datei = Format(Range("D1"), "YYYY-MM-DD")
'*** Dialog zum Dateipfad öffnen ***
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "J:\Eigene Dateien\1. Depot A\Ratings" & " \ """
.Title = "Wählen Sie bitte einen Speicherort für die Sicherung aus"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Abgebrochen"
Else
Pfad = .SelectedItems(1)
MsgBox Pfad
End If
End With
'*** Verzeichnis zum Speichern anpassen ***
ChDir Pfad
'*** Bildschirmdialoge ausschalten ***
Application.DisplayAlerts = False
'*** Dateien speichern ***
ActiveWorkbook.SaveAs Filename:=Datei & "_Ratingübersicht", FileFormat:=xlCSV 'als CSV  _
speichern
ActiveWorkbook.SaveAs Filename:=Datei & "_Ratingübersicht", FileFormat:=xlWorkbookDefault ' _
als XLSX speichern
'*** Bildschirmdialoge einschalten ***
Application.DisplayAlerts = True
End Sub

Gruß
Frank
Anzeige

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Anzeige
Formatierung Daten in Prozent fortlaufend
Wolfgang

Guten Morgen,
ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
- wobei unter Spalt...
21.11.2008 07:54:55
Thread-ID: 1026590
7 Beiträge
Anzeige
Datenquelle eines Diagramms mit VBA verändern
mgr

hallo, ihr excel-götter!
leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
dieses tortendiagramm wird mit daten befüllt, die durch eine...
21.11.2008 11:45:45
Thread-ID: 1026676
4 Beiträge
Produktdaten aus einer Liste mit VBA verwenden
Niklas

Hello Leute!
Ich arbeite gerade an einem Programm, welches mit Excel VBA programmiert wurde!
Das Programm dient dem Berechnen einer Übertemperatur in Schaltschränken!
Jetzt ist es notwendig, dass man verschiedene Einsätze ( Die Dinge die im Schaltschrank drinnen sind) auswählen kann...
03.12.2008 14:37:00
Thread-ID: 1029841
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Anzeige
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige