Office: datei per makro speichern

Hallo zusammen,

hab ein Problem beim Makro erstellen. Ich würde gerne eine geöffnete Excel datei in dem selben Ordner unter einem anderen Namen speichern. In Zelle A7 steht Monat Jahr. Der neue Name soll soll sich aus dem folgenden Monat Jahr zusammensetzen. Beispiel: Zelle A7 steht August 2011 der neue Name der Datei soll dann September 2011 sein. Alle versuche sind bei mir gescheitert.
Vielleicht kann mir jemand von euch helfen.

Vielen Dank im voraus.

:)

 

nur wenige sehen Deine Versuchen und können Dir mitteilen was falsch ist. Benutze den Makrorecorder als Grundlage.

 

Hallo ?

erste Frage wäre (wie immer, wenn es um Datum und Uhrzeit geht): Wie genau stehen die Werte in der Zelle? Als Datumswert oder als reiner Text?

Grüße
EarlFred

 

Hallo,
danke für eure schnellen Antworten.

Hier mein bisheriger Code:

Sub Makro1()
'
' Makro1 Makro
' Makro am 12.07.2011 von User aufgezeichnet
'

'
Sheets("Tabelle1").Select
ActiveWorkbook.SaveAs Filename:="E:\z\daten\Dateiname.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

In der Zelle A7 steht ein Datum das benutzerdefiniert formatiert ist, Angezeigt wird Monat und Jahr. Der neue Dateiname soll jetzt den nächsten Monat und Jahr erhalten.

Ich hoffe die Angaben reichen erstmal.

 

Hallo namenloser,

probier bitte mal:

Code:

Grüße
EarlFred

 

Code:

 

Hallo,

danke für eure schnellen Antworten beides funktioniert bestens. Kann man den Pfad der Datei so anpassen (z.B. als Variable)so dass die datei immer in dem selben Ordner gespeichert wird, auch wenn sich der Pfad mal ändert.

Vilen Dank im voraus.

 

dann schreibe
ThisWorkbook.Path