ich habe da ein paar Probleme mit dem Speichen von Dateien.
Ich hoffe mir kann hier jemand helfen.
Wie kann ich die "2006" im Filename durch die aktuelle Jahreszahl ersetzen.
Das speichern soll auch die nächsten Jahre (2007...usw) noch funktionieren.
'----------------------SPEICHERN----------------------------
Dim DateiName As String, Pfad_Kopie As String, Pfad As String, DateiNameKopie As String
DateiName = ActiveWorkbook.Name
Pfad = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=Pfad & "\2006" & "\" & "Monatsabschluss " & DateiName,
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
'-------------------------------------------------------------------
Nächste Problem:
Wie setze ich den Pfad ein Verzeichnis zurück. Also zb. nicht c:\monat\2006\ sondern c:\monat\ (dies ist nur ein Beispiel). Die Verzeichnisse ändern sich ständig und ich muss ein Verzeichnis zurück.
Im Filename muss der Monat der im "Monatsabschluss" Zelle C1 steht als Zahl eingefügt werden (hier cb1). Wie kann ich die Ausgabe zweistellig machen. Ich habe hier eine " 0" vorgestellt, aber bei Monat 11 u. 12 siehts dann so aus 011 u.012.
Und auch hier das Problem mit der Jahreszahl am Ende des Filname. Hier soll die Jahreszahl aber nur 2 stellig stehen (".06.xls"). Also hier soll auch die aktuelle Jahreszahl eingefügt werden damit es nächstes Jahr auch noch klappt.
'----------------------SPEICHERN----------------------------
Dim DateiName As String, Pfad_Kopie As String, Pfad As String, DateiName2 As String,
DateiName1 As String
DateiName = ActiveWorkbook.Name
DateiName1 = Right(DateiName, Len(DateiName) - 16)
DateiName2 = Left(DateiName1, Len(DateiName1) - 10)
Pfad = ActiveWorkbook.Path
cb = Worksheets("Monatsabschluss").Cells(1, 3)
cb1 = Month(cb)
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & DateiName2 & " 0" & cb1 & ".06.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Kill Pfad & "\" & DateiName1
'-------------------------------------------------------------------
Danke schon einmal für Eure hilfe.
iris