Datei beim öffnen umbennen

Forumthread: Datei beim öffnen umbennen

10.12.2025 18:23:30

kurt k

Guten Abend,
ich habe eine Datei: "#_Nummern_2025.xlsm"
kann man diese Datei automatisch wenn das neue Jahr (nach Windows-Kalender) aktiv ist das beim öffnen dies umbennant wird in
"#_Nummern_2026.xlsm" ?

kurt k

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei beim öffnen umbennen

10.12.2025 18:25:18

schauan
Man könnte …

10.12.2025 18:54:12

RPP63
AW: Datei beim öffnen umbennen

11.12.2025 12:00:32

snb
Danke für den Tipp ! -)

11.12.2025 13:18:32

kurt k
Hallo zusammen, habe Lösung gefunden... -)

11.12.2025 10:20:33

kurt k
Kill Bill...

11.12.2025 13:54:51

Case
AW: Datei beim öffnen umbennen

10.12.2025 18:33:38

kurt k
AW: Datei beim öffnen umbennen

10.12.2025 19:06:37

schauan

AW: Datei beim öffnen umbennen

10.12.2025 18:25:18

schauan

... nö :-)

Man könnte …

10.12.2025 18:54:12

RPP63

Moin!
Man könnte beim Öffnen eine Kopie mittels .SaveAs erstellen.
Aber Kill funktioniert zum Glück nicht mit geöffneten Dateien, in denen der Code steht.

Gruß Ralf

AW: Datei beim öffnen umbennen

11.12.2025 12:00:32

snb

Einfach so:

Private Sub Workbook_Open()

    If InStr(ThisWorkbook.Name, Year(Date)) = 0 Then ThisWorkbook.SaveAs Replace(ThisWorkbook.FullName, Year(Date) - 1, Year(Date))

End Sub

Danke für den Tipp ! -)

11.12.2025 13:18:32

kurt k

Danke snb !

Hallo zusammen, habe Lösung gefunden... -)

11.12.2025 10:20:33

kurt k

Guten Morgen,
habe über verschiedene Foren Lösung gefunden.
Dim aktuellesJahr As Long
Dim neuerName As String
Dim pfadDateiNeu As String
Dim wbNeu As Workbook

aktuellesJahr = Year(Date)
neuerName = "###_Nummern_" & CStr(aktuellesJahr) & ".xlsm"
pfadDateiNeu = ThisWorkbook.Path & "\" & neuerName

' Prüfen: wenn die aktuelle Datei nicht den richtigen Jahresnamen hat
If ThisWorkbook.Name > neuerName Then
' Neue Datei nur erzeugen, wenn sie noch nicht existiert
If Dir(pfadDateiNeu) = "" Then
ThisWorkbook.SaveCopyAs pfadDateiNeu
DoEvents

Set wbNeu = Workbooks.Open(pfadDateiNeu)
wbNeu.Activate
MsgBox "Neue Jahresdatei erstellt und geöffnet: " & wbNeu.Name

es wird eine kopie erstellt, genau wie Ralf erwähnt hat.

gruß kurt k

Kill Bill...

11.12.2025 13:54:51

Case

Moin, :-)

... funktioniert erst in VOL2 - bei Dateien (auch die mit dem Code) geht es schon in VOL1. ;-)

Option Explicit

' Gerade offenen Datei löschen

Public Sub Main()

    Application.DisplayAlerts = False

    ThisWorkbook.ChangeFileAccess xlReadOnly

    Kill ThisWorkbook.FullName

    ThisWorkbook.Close False

End Sub

Servus
Case

AW: Datei beim öffnen umbennen

10.12.2025 18:33:38

kurt k

Hallo Schauan,
geht das den wenn ich die Datei per explorer liste auswähle ?
gruß kurt k

AW: Datei beim öffnen umbennen

10.12.2025 19:06:37

schauan

... Jupp, da geht das - aber auch nur bei geschlossener Datei.

Ansonsten, überlegen, was Du mit Deinen Daten anstellen willst und musst.

Wenn Du über Jahre alle Daten mitschleppst, kann die Datei mit der Zeit groß und unhandlich werden und ggf. nimmt die Performance ab. Zudem ist dann auch der Sinn einer jährlichen Umbenennung fraglich.

Eventuell kann man da eine "Vorlage" nutzen, mit den gebräuchlichen Daten, die man dann jedes Jahr unter einem entsprechenden Namen speichert. Dorthin übrträgt man ggf. über das Jahr angefallene und im neuen Jahr noch gebrauchte Daten.

Forumthread: Datei beim öffnen umbennen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread