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 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: 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

Betrifft: Dateiname in "MMMM"
von: Heinz H

Geschrieben am: 07.01.2010 13:41:50

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

Zelle Formel G1 =F1

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

Excel-Beispiele zum Thema "Dateiname in "MMMM""
Dateinamen filtern	Dateiname aus dem vollen Namen extrahieren
Dateiname vorgeben bei Druck in Printdatei	Dateinamen in Listbox
Dateinamen in Tabelle einlesen	Dateinamen eines Verzeichnisses als HTML-Datei
Grafik nach Eingabe des Dateinamens einfügen	Dateinamen in TabStrip-Elemente einlesen
Datei entsprechend der Eingabe des Dateinamens öffnen	Dateinamen in UserForm-ComboBox einlesen und Datei öffnen