Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern unter mit Format YYYY

Speichern unter mit Format YYYY
20.12.2021 12:01:54
HeinzH
Hallo Leute im Forum,
Habe einen Code der mir die Datei neu speichert.
Dateiname abhängig von Sheets("Schicht AF").Range("A2"). In A2 ist aber das Datum mit dd,mm,yy angegeben.
Ich möchte die Datei ABER nur mit JJJJ abspeichern.
Könnte mir dabei bitte jemand behilflich sein ?
Danke
SG, Heinz

Sub Neues_Jahr_Speichern()
Dim SaveName As String
SaveName = Sheets("Schicht AF").Range("A2")
ActiveWorkbook.SaveAs Filename:="Kritische Fehler" & " " & _
SaveName & ".xlsm"
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter mit Format YYYY
20.12.2021 12:14:08
Alwin
Hallo Heinz,

ActiveWorkbook.SaveAs Filename:="Kritische Fehler" & " " & _
SaveName & Format(Now,"yyyy") & ".xlsm"
oder wenn es nur das Jahr sein soll:

ActiveWorkbook.SaveAs Filename:= Format(Now,"yyyy") & ".xlsm"
Gruß Uwe
AW: Speichern unter mit Format YYYY
20.12.2021 12:46:14
HeinzH
Hallo Alvin,
Erstmals Danke für deine Hilfestellung.
Nur so ganz stimmt das ganze noch nicht.
Die sollte "Kritische Fehler 2022" lauten.
Danke, Heinz

Sub Neues_Jahr_Speichern()
Dim SaveName As String
SaveName = "Kritische Fehler" & " " & Sheets("Schicht AF").Range("A2")
ActiveWorkbook.SaveAs Filename:=Format(Now, "yyyy") & ".xlsm"
End Sub

Anzeige
AW: Speichern unter mit Format YYYY
20.12.2021 12:59:07
Yal
Ja, war fast richtig:
Entweder: 

Sub Neues_Jahr_Speichern()
Dim Jahr As String
On Error Resume Next
Jahr = Year(DateValue(Sheets("Schicht AF").Range("A2")))
If Jahr = "" Then
Jahr = Year(Now)
If Month(Now) > 10 Then Jahr = Year(Now) + 1
End
ActiveWorkbook.SaveAs Filename:="Kritische Fehler " & Jahr & ".xlsm"
End Sub
Oder

Sub Neues_Jahr_Speichern()
Dim Jahr As String
On Error Resume Next
Jahr = Format(DateValue(Sheets("Schicht AF").Range("A2")), "YYYY")
If Jahr = "" Then
Jahr = Format(Now, "YYYY")
If Month(Now) > 10 Then Jahr = Jahr + 1
End
ActiveWorkbook.SaveAs Filename:="Kritische Fehler " & Jahr & ".xlsm"
End Sub
Beide gleich.
VG
Yal
Anzeige
AW: Speichern unter mit Format YYYY
20.12.2021 13:08:51
HeinzH
Hallo Alvin,
Super, jetzt funktioniert es wie gewollt.
Recht herzlichen DANK.
Schöne grüße aus Österreich
Heinz

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige