Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Dateinamen mit Jahr

Forumthread: Dateinamen mit Jahr

Dateinamen mit Jahr
22.12.2024 13:43:45
philipp
Guten Tag zusammen,
erst mal:
Einen schönen 4. Advent !!!
Der Dateinamen meiner Datei ist: "Kunden_Daten.xlsm"
Was muss ich tun damit der Dateiname automatisch mit dem entsprechende aktuellen Jahr
versehen wird.
Also so: "Kunden_Daten_2024.xlsm"


gruß philipp
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "Kunden_Daten_" & year(Now) & ".xlsm"
22.12.2024 13:58:57
JoWE
Dateiname ungültig
22.12.2024 14:37:59
philipp
Hallo Jowe,
ich wollte so im Explorer speichern:
"##_Kunden_Daten_" & year(Now) & ".xlsm
der Dateiname ist ungültig.wurde angesagt.

gruß philipp
AW: Dateiname ungültig
22.12.2024 15:01:12
JoWE
Hallo Phillipp,
man darf nicht das letzte (abschließende) Gänsefüßchen einfach weglassen!!!
So sollte es aber gehen: "##_Kunden_Daten_" & year(Now) & ".xlsm"
Gruß
Jochen
Anzeige
AW: Dateiname ungültig -)
22.12.2024 15:11:28
philipp
Hallo Jochen,
habe jetzt dies in der Auto_Open
eingebaut:
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "D:\##_Kunden_Daten_" & Year(Now) & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True

klappt alles,
danke und noch einen schönen4. Advent.

gruß philipp
Anzeige
AW: gerne oT
22.12.2024 15:14:51
JoWE
Leider kleiner Fehler bei mir...
22.12.2024 15:23:46
philipp
Hallo Jochen,
ich habe dies in meinem Makro drin stehen:
"D:\##_Kunden_Daten_" & Year(Now) & ".xlsm"
jetzt kommt Fehlermeldung:
"Fehler beim Kompilieren:
Konstanter Ausdruck erforderlich"

Habe aber:
Dim Year
hinterlegt.

gruß philipp
Anzeige
AW: Leider kleiner Fehler bei mir...
22.12.2024 15:32:40
JoWE
zeige bitte das komplette Makro
Anbei Makro
22.12.2024 15:49:41
philipp
Wie gewünscht: 


Public Sub Neu_Rechnung_Datenbank_kopieren()

  

 Public Sub Neu_Rechnung_Datenbank_kopieren()

  Dim wksQUELLE As Worksheet            'Quell-Worksheet

  Dim wksZIEL As Worksheet              'Ziel-Worksheet

  Dim wkbZIEL As Workbook, wkbQUELLE As Workbook

  Dim rngZIEL As Range

  Dim strSUCH As String

 ' Const cstr_wkbQUELLE As String = "D:\##_Kunden_Daten_" & Year(Now) & ".xlsm"

 ' Const cstr_wkbQUELLE As String = "D:\##_Kunden_Daten_" & Format(Date, "YYYY") & ".xlsm"

  Const cstr_wksQUELLE As String = "Adressen"

  Const getStrPassWort = "tk"

  

  Set wkbQUELLE = ActiveWorkbook

  Set wksQUELLE = ActiveSheet


gruß philipp
Anzeige
AW: Anbei Makro
22.12.2024 16:23:40
JoWE
Phillipp,

das gezeigte Makro ist offensichtlich nicht komplett;
ein VBA-Makro beginnt mit SUB und endet mit End Sub und allem Text dazwischen!!!
Und was soll da zweimal hintereinander "Public Sub Neu_Rechnung_Datenbank_kopieren()"? Das kann so nicht ok sein!!
Ich gewinne immer mehr den Eindruck, dass Du ziemlich sehr im Dunklen stocherst???
Vielleicht lädst Du mal Deine Arbeitsmappe hoch und erläuterst ausführlich, was Du eigentlich erreichen willst.
Gruß
Joche
Anzeige
AW: Anbei Makro
22.12.2024 18:01:08
philipp
Hallo Jochen,
die obere Zeile hatte ich bei mir gelöscht.
Das Makro ist von meinem Kollegen, mit diesem Makro werden die Werte in die Datenbank kopiert.
Es genügt wenn in dieser Zeile:
Const cstr_wkbQUELLE As String = "##_Kunden_Daten.xlsm"
das Jahr berücksichtigt wird, wie in der Auto_Open, da klappt es ja. 

Public Sub Workbook_Open()

 Application.DisplayAlerts = False

 ThisWorkbook.SaveAs "D:\##_Kunden_Datenbank_" & Year(Now) & ".xlsm", _

        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 Application.DisplayAlerts = True

End Sub


so, geht nicht ?
Const cstr_wkbQUELLE As String = "##_Kunden_Datenbank_ * & ".xlsm"

mfg philipp

Anzeige
Sollte es nicht klappen, dann ...
22.12.2024 18:15:00
philipp
Hallo zusammen,
sollte es nicht klappen, dann nehme ich halt das Jahr wieder raus.

mfg philipp
Danke an Alle -)
22.12.2024 18:40:16
philipp
Danke für die Unterstützung,
Jochen, werde morgen mal probieren, habe heute die Nase voll.

Schönen Abend noch
philipp
AW: Leider kleiner Fehler bei mir...
22.12.2024 15:56:17
philipp
Hallo Jochen,
wieso klappt das: 

Public Sub Workbook_Open()

 Application.DisplayAlerts = False

 ThisWorkbook.SaveAs "D:\##_Kunden_Daten_" & Year(Now) & ".xlsm", _

        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 Application.DisplayAlerts = True

End Sub

gruß
philipp
Anzeige
AW: Leider kleiner Fehler bei mir...
22.12.2024 21:50:36
Piet
Hallo Philipp

ich nehme an du bist noch ein Neuling in VBA, dann macht man noch Fehler mangels Basis Wissen!
Achte bitte mal auf den Wortlaut was Const besagt: --> das sind Konstante, unveränderbare Werte!

Du kannst es aber bitte so machen, wie ich es auch in meinen Makros mache:
Public Const Pfad = "D:\##_Kunden_Daten_" -- Daran bitte NICHTS verändern!
ThisWorkbook.SaveAs Pfad & Year(Now) & ".xlsm", _

Wenn du den Pfad in Workbook_Open benutzen willst, must du Const als Public = Öffentlich deklarieren.
Dann gilt diese Konstante für alle Module, für alle Makros, egal in welchem Modul oder Tabelle sie sind.

mfg Piet
Anzeige
AW: Leider kleiner Fehler bei mir...
22.12.2024 15:34:31
RPP63
Year() ist eine VBA-Funktion!
Du darfst da nichts dimensionieren.
Year(Date) ergibt die Zahl 2024, jedenfalls in den nächsten 8 Tagen.

Gruß Ralf
Und was soll ich an Stelle einsetzen
22.12.2024 15:36:43
philipp
Hallo Ralf,
was soll ich den an der Stelle einsetzen ?
Komisch, in Workbook_Open()
klappt es !

gruß philipp
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum