Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Monats Format ändern

Forumthread: Monats Format ändern

Monats Format ändern
12.11.2007 17:10:17
Heinz
Hallo Leute
Im unteren Code wird ein neues Tab.Blatt gespeichert.Zb. "Stundenliste - Test 10 2008.xls"
Es sollte aber "Stundenliste - Test Oktober 2008.xls heissen.
Ich glaube hier müsste das Format für Monat geändert gehören.
MyFileName = "Stundenliste - " & Range("B3") & " " & _
Month(Range("A6")) & " " & Year(Range("A6"))
Könnte mir bitte jemand weiterhelfen.
Danke Heinz

Sub cp_wbk()
Dim wbk_neu As Workbook
Dim wbk_alt As Workbook
Dim MyFileName As String
Dim MyPfad As String
Dim MyShape As Shape
Set wbk_alt = ActiveWorkbook
Set wbk_neu = Workbooks.Add
wbk_alt.Activate
MyPfad = ThisWorkbook.Path & "\" 'anpassen
wbk_alt.Sheets(1).Copy before:=wbk_neu.Sheets(1)
For Each MyShape In wbk_neu.Sheets(1).Shapes
If MyShape.AlternativeText  "Neues Monat anlegen" Then MyShape.Delete
Next
wbk_neu.SaveAs MyPfad & MyFileName
wbk_neu.Close
'MsgBox "Sicherung siehe: " & MyPfad & MyFileName
End Sub


Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Monats Format ändern
12.11.2007 17:17:00
Thomas
Hallo Heinz,
statt:
MyFileName = "Stundenliste - " & Range("B3") & " " & _
Month(Range("A6")) & " " & Year(Range("A6"))
besser so:
MyFileName = "Stundenliste - " & Range("B3") & " " & Format([A6], "mmmm YYYY")
Gruß,
Thomas

AW: Monats Format ändern
12.11.2007 17:19:11
Tino
Hallo,
MonthName(Month(Range("A6")))
Gruss
Tino

Anzeige
AW: Monats Format ändern
12.11.2007 17:20:23
Ingo
hallo heinz
MyFileName = "Stundenliste-" & [A3] & " " & Format([A6], "mmmm yyyy")
mfG
Ingo Christiansen

DANKE !!! Thomas - Ingo - Tino
12.11.2007 17:46:00
Heinz
Hallo Thomas - Ingo & Tino
Recht herzlichen DANK !! ALLE Eure Lösungen sind SUPER !!
Danke & Gruß Heinz
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige