Office: Makro "Datei speichern" unter Zellinhalt

Hallo,
ich habe mal wieder ein Problem und würde mich freuen, wenn Ihr mir helfen könntet:
Ich möchte ein Makro erstellen, welches die geöffnete Datei unter dem Namen des Zellinhaltes einer Zelle, z.B. B3, speichert.
Das Makro habe ich bereits mit fremder Hilfe folgendermaßen erstellt:

Sub dateiname()
ort = Range("B3")
If Len(ort) = 0 Then
MsgBox ("Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!")
Else
ActiveWorkbook.SaveAs FileName:=ort & ".xls"
End If
End Sub

Soweit funktioniert dies auch, aber der Knackpunkt ist, in Zelle B3 steht ein Datum (z.B. "Jan 13"), in der Eingabezeile oben steht (B3 = 01.01.2013). Die gespeicherte Datei bekommt dann den Namen "01.01.2013".
Wie kann ich dem Makro zuweisen, daß die zu speichernde Datei das Format "MMM.JJJ" haben soll, d.h. die zu speichernde Datei soll heißen "Jan 13.xls".

Vorab vielen Dank für Eure Hilfe und
Gruß von Ingo

:)

 

Moin Ingo,

evtl. so:
Code:

 

Hi Dirk,
Dein Vorschlag paßt astrein, vielen Dank!
Eine Frage habe ich dazu noch, wenn möglich?
Das Makro sieht ja bekanntlich jetzt so aus:

Sub dateiname()

ort = Range("B3")
If Len(ort) = 0 Then
MsgBox ("Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!")
Else
ActiveWorkbook.SaveAs Filename:=Format(DateSerial(Year(ort), Month(ort), 1), "MMM YY") & ".xls"
End If

End Sub

Das Problem dabei ist nur, die "neue Datei" wird jetzt wahlweise irgendwo gespeichert, bei mir ist es jeweils der Ordner "Eigene Dateien".
Kann ich im Makro noch festlegen, wo, d.h. in welchem Ordner die "neu erstellte Datei" jeweils immer gespeichert wird?

Gruß und Dank vorab von
Ingo

 

Hallo Ingo,

z:b. so: Code:

 

Moin Ingo,

evtl. so:
Code:

 

Hallo Dirk und Hasso,
ich habe Eure Lösungsvorschläge sofort getestet.
Super!!!
Es funktioniert so, wie ich es mir vorgestellt habe.
Also vielen, vielen Dank!
Wenn Ihr mal in der Nähe von Dresden, d.h. genau gesagt in Radeberg seid, lade ich Euch gern auf´n "Radeberger" ein.
Zuletzt noch eine Frage: Wo kann ich mich in Sachen Excel-Makros schlauer machen, da ich in dieser Frage noch ganz am Anfang stehe und da aber gern dazulernen möchte?
Ich habe mir dazu bereits ein über 900-seitiges Kompendium "Excel-VBA - Mit über 1000 Makros für Excel 2000 bis 2010" von Bernd Held besorgt, aber vielleicht kennt Ihr noch andere Wissensquellen.
Jetzt aber erst mal ein schönes WE, ich werde nach meiner letzten Nachtschicht erst mal an der Matratz horchen.
Grüße von Ingo
*Smilie