Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Simples Excel Makro, aktuelles Datum in Dateinamen

Simples Excel Makro, aktuelles Datum in Dateinamen
17.05.2014 14:05:31
SH
Hallo, versuche gerad mein erstes zieml. simples Makro zu erstellen.
Habe dabei eine Frage:
Mein Ziel:
Ich ziehe eine Datei aus SAP, starte das Makro, das Makro löscht einige Zellen, fügt eine Spalte hinzu und speichert die Datei inkl aktuellem Datum im Namen ab. zB Bestand_17.05.2014
Ich krieg alles hin mit dem Recorder bis auf den Dateinamen.
Wie mache ich das am besten?
So siehts bisher aus
ChDir "C:\Users\Test"
ActiveWorkbook.SaveAs Filename:="C:\Users\Test\Bestand.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Danke & Gruß

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Simples Excel Makro, aktuelles Datum in Dateinamen
17.05.2014 14:10:50
Matthias
Hallo
Ungetestet.
Probier mal mit
ActiveWorkbook.SaveAs Filename:="C:\Users\Test\Bestand_" & Date &".xlsx"
Gruß Matthias

AW: Simples Excel Makro, aktuelles Datum in Dateinamen
17.05.2014 14:18:12
SH
Funktioniert perfekt. Danke
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Aktuelles Datum in Dateinamen mit Excel Makro einfügen


Schritt-für-Schritt-Anleitung

Um ein Excel Makro zu erstellen, das das aktuelle Datum im Dateinamen einfügt, folge diesen Schritten:

  1. Öffne Excel und gehe zu Entwicklertools. Falls der Tab nicht sichtbar ist, aktiviere ihn über die Excel-Optionen.

  2. Klicke auf Visual Basic, um den VBA-Editor zu öffnen.

  3. Wähle Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code ein:

    Sub SpeichernMitDatum()
        Dim Dateiname As String
        Dateiname = "C:\Users\Test\Bestand_" & Format(Date, "dd.mm.yyyy") & ".xlsx"
        ActiveWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    End Sub
  5. Passe den Pfad C:\Users\Test\ nach Bedarf an.

  6. Schließe den VBA-Editor und gehe zurück zu Excel.

  7. Führe das Makro aus, um die Datei mit dem aktuellen Datum im Namen zu speichern.

Jetzt kannst du das Excel Makro verwenden, um das Datum im Dateinamen einzufügen!


Häufige Fehler und Lösungen

  • Fehler: "Der Dateiname ist ungültig."

    • Lösung: Überprüfe, ob der angegebene Pfad korrekt ist und ob die Datei nicht bereits geöffnet ist.
  • Fehler: "Das Makro kann nicht ausgeführt werden."

    • Lösung: Stelle sicher, dass die Makros in den Excel-Optionen aktiviert sind.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du manuell das Datum in den Dateinamen einfügen:

  1. Speichere die Datei.
  2. Wähle Datei > Speichern unter.
  3. Füge manuell das aktuelle Datum in den Dateinamen ein. Zum Beispiel: Bestand_17.05.2024.xlsx.

Diese Methode ist jedoch weniger automatisiert als das Excel Makro.


Praktische Beispiele

Hier sind einige Beispiele, wie du das Makro anpassen kannst:

  • Um das Datum und die Uhrzeit im Dateinamen zu speichern:

    Dateiname = "C:\Users\Test\Bestand_" & Format(Now, "dd.mm.yyyy_hh.mm") & ".xlsx"
  • Um das Datum im Format "Jahr-Monat-Tag" zu speichern:

    Dateiname = "C:\Users\Test\Bestand_" & Format(Date, "yyyy-mm-dd") & ".xlsx"

Diese praktischen Beispiele helfen dir, das Excel Makro flexibel zu gestalten.


Tipps für Profis

  • Nutze die Application.ActiveWorkbook-Eigenschaft, um sicherzustellen, dass das Makro auf das aktive Arbeitsbuch zugreift.
  • Teste dein Makro in einer sicheren Umgebung, bevor du es in Produktionsdateien verwendest.
  • Dokumentiere dein Makro gut, um die Wartung und Anpassung zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich das Datum im Dateinamen anpassen? Du kannst das Format des Datums im Code ändern, indem du die Format-Funktion anpasst.

2. Ist es möglich, die Uhrzeit ebenfalls im Dateinamen zu speichern? Ja, indem du Now anstelle von Date verwendest und das Format entsprechend anpasst.

3. Funktioniert das Makro in allen Excel-Versionen? Das Makro sollte in den meisten modernen Excel-Versionen (ab Excel 2007) problemlos funktionieren. Stelle sicher, dass du die entsprechenden Berechtigungen hast, um Makros auszuführen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige