Ich möchte per Combobox ein neues Kalenderblatt erstellen, bin aber nicht in der Lage, das Blatt nach dem Format MMMM YYYY zu benennen. Der Name des Blattes steht immer im Format dd.mm.yyyy.
Wer kann helfen? Der Code, den ich verwende, steht unten.
Danke im Voraus
Lars
Sub Monat_Wählen()
Dim Mona As String
'On Error GoTo Monat_Wählen_error
Mona = "noch nix"
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Monat"
Sheets("Monat").Activate
' im Formular steht die Combobox aus der der betreffende Monat für _ Zelle B3 genommen wird
frm_MonatsEingabe.Show
With Range("B3")
.NumberFormat = "d/ mmm"
End With
Range("A2").Value = Range("B3").Value
Range("A2").NumberFormat = "mmmm yyyy"
Mona = Range("A2")
Sheets("Monat").Name = Mona
Monat_Wählen_exit:
Exit Sub
Monat_Wählen_error:
MsgBox ("Hier stinkt was!")
Resume Monat_Wählen_exit
End Sub