ich möchte gerne mit einer Inputbox einen Monatsnamen abfragen und dann in der Zelle A2 bis Ax beginnend mit z.B. für Mai in der Zelle A2 1.Mai.2004 bis A32 31.Mai 2004 stehe haben.
Wie kann man sowas angehen?
LG
wurliwurm
Sub MonatsblattErzeugen()
Dim i%, Monat$
Monat = InputBox("Bitte die gewünschte Monatszahl eingeben!", "MONAT")
If Monat = "" Then Exit Sub
Worksheets("Test").Copy After:=Worksheets("Test")
ActiveSheet.Name = Format(DateSerial(1, CInt(Monat), 1), "mmmm")
For i = 1 To Day(DateSerial(2004, CInt(Monat) + 1, 0))
Cells(i + 1, 1).Value = DateSerial(2004, CInt(Monat), i)
Next
Columns(1).NumberFormat = "d/mmmm yyyy"
End Sub