Jahreszahl mit eintragen
16.02.2008 14:03:00
Fred
Ich erstelle einen neuen Jahreskalender über den unten stehenden Code. Wie kann ich dort mit einbauen das er das eingegebene Jahr in die Zelle A50 einträgt.
Sub Kalender_untereinander()
Dim intfrage As Integer
Dim monat As Integer
Dim tag As Integer
Dim Jahr As Integer
Dim intfrageTxt As Integer
Range("A1:AJ159").Delete Shift:=xlUp
intfrage = InputBox("programmiert von Fred Luczyk Welches Jahr?")
For monat = 1 To 12 Step 1
Cells(monat, 1) = Format(DateSerial(intfrage, monat, 1), "MMMM")
For tag = 1 To Day(DateSerial(intfrage, monat + 1, 0))
Cells(monat, tag + 1) = Format(DateSerial(intfrage, monat, tag), "DD DDD")
Next tag
Next monat
End Sub
Anzeige