Herbers Excel-Forum - das Archiv
Dateiname in "MMMM" | Herbers Excel-Forum
- Dateiname in "MMMM" von Heinz H vom 07.01.2010 13:41:50
- AW: Dateiname in "MMMM" - von Hajo_Zi am 07.01.2010 13:45:53
- AW: Dateiname in "MMMM" - von Heinz H am 07.01.2010 13:49:17
- AW: Dateiname in "MMMM" - von Heinz H am 07.01.2010 13:49:17
- AW: Dateiname in "MMMM" - von Josef Ehrensberger am 07.01.2010 13:47:49
- AW: Dateiname in "MMMM" - von hary am 07.01.2010 13:49:19
- vergiss meinen Beitrag owT. - von hary am 07.01.2010 13:50:49
- AW: Danke an Hajo, Josef & Hary !! - von Heinz H am 07.01.2010 13:55:10
- AW: Danke an Hajo, Josef & Hary !! - von Heinz H am 07.01.2010 13:55:10
- AW: Dateiname in "MMMM" - von Hajo_Zi am 07.01.2010 13:51:13
- AW: Dateiname in "MMMM" - von hary am 07.01.2010 14:17:41
- AW: Dateiname in "MMMM" - von hary am 07.01.2010 14:17:41
- vergiss meinen Beitrag owT. - von hary am 07.01.2010 13:50:49
Betrifft: Dateiname in "MMMM"
von: Heinz H
Hallo Leute
Ich habe ein Makro,das mir eine neue Arbeitsmappe mit Namen von B3 & Datum aus G1 erstellt.
Es wird aber Zb. "Meier, hans - Stunden 6 1976) speichert.
Habe G1 im Format als "MMMM JJJJ" gespeichert.
Trotzdem kommt bei der neuen Arbeitsmappe nur"6" es sollte aber "Juni" gespeichert werden.
Also "Meier, hans - Stunden Juni 1976)
Woran liegt das bitte
Gruß
Heinz
01.06.1976
| G | |
| 1 | Juni 1976 |
| Formeln der Tabelle | ||||
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
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 = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") _
MyFileName = Range("B3") & " - " & "Stunden" & " " & _
Month(Range("G1")) & " " & Year(Range("G1"))
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
End Sub
Betrifft: AW: Dateiname in "MMMM"
von: Hajo_Zi
Geschrieben am: 07.01.2010 13:45:53
Halo Heinz,
arbeite mit Format
Format(Range("G1"),"mmmm")
Betrifft: AW: Dateiname in "MMMM"
von: Heinz H
Geschrieben am: 07.01.2010 13:49:17
Hallo Hajo
Super !!!
Recht herzlichen Dank.
Gruß
Heinz
Betrifft: AW: Dateiname in "MMMM"
von: Josef Ehrensberger
Geschrieben am: 07.01.2010 13:47:49
Hallo Heinz,
MyFileName = Range("B3") & " - Stunden " & Range("G1").Text
Betrifft: AW: Dateiname in "MMMM"
von: hary
Geschrieben am: 07.01.2010 13:49:19
hallo Heinz
so sollte es gehen.
Range("B3") & " - " & "Stunden" & " " & Format(Month(Range("G1")), "MMMM") & " " & Year(Range(" _
G1"))
gruss hary
Betrifft: vergiss meinen Beitrag owT.
von: hary
Geschrieben am: 07.01.2010 13:50:49
.
Betrifft: AW: Danke an Hajo, Josef & Hary !!
von: Heinz H
Geschrieben am: 07.01.2010 13:55:10
Hallo Hajo, Josef & Hary
Ich bedanke mich wiederum recht herzlich bei euch.
Gruß
Heinz
Betrifft: AW: Dateiname in "MMMM"
von: Hajo_Zi
Geschrieben am: 07.01.2010 13:51:13
Hallo Harry,
in Deiner Formel ist month falsch. Das wäre das Datum vom 01.01.1900 bis 12.01.1900
Gruß Hajo
Betrifft: AW: Dateiname in "MMMM"
von: hary
Geschrieben am: 07.01.2010 14:17:41
Hallo Hajo
ist mir nach betaetigen des Absenden Buttons aufgefallen, habe den Beitrag zurueckgenommen.
Gruss Hary