Microsoft Excel

Herbers Excel/VBA-Archiv

Dateiname in "MMMM" | Herbers Excel-Forum


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
1Juni 1976

Formeln der Tabelle
ZelleFormel
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")

GrußformelHomepage


  

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

Gruß Sepp



  

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


Beiträge aus den Excel-Beispielen zum Thema "Dateiname in "MMMM""