Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
924to928
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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


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

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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige