Habe hier in Forum den Code "KalenderVertikal" gefunden.
Sub KalenderVertikal()
'fügt vertikal den Kalender ein
Dim intfrage As Integer
Dim monat As Integer
Dim tag As Integer
Range("A1:AE34").ClearContents
intfrage = InputBox("Welches Jahr?")
For monat = 1 To 12 Step 1
Cells(2, monat) = Format(DateSerial(intfrage, monat, 1), "MMMM")
For tag = 1 To Day(DateSerial(intfrage, monat + 1, 0))
Cells(tag + 3, monat) = Format(DateSerial(intfrage, monat, tag), "DD.MM.YY")
Next tag
Next monat
End Sub
Wie könnte man den Code so umbauen daß er mir in bestimmten Tabellenbläter und ab bestimmten Zeilen den Kalender einträgt?
Folgende Voraussetzungen sind:
-Alle Monats Tabellen haben selben Struktur.
-Monats Tabellen sind nummerisch; 01, 02, 03 usw. (01=Januar, 02=Februar, 03=März) beschfitet worden.
-In allen Monats Tabellen (01-12) in "P1" sthet immer das gewünschtes Jahr z.B. "2009"
(formatiert unter Standard).
"P1" ist eingentlich die Verknüpfung aus meine Master Tabelle.
D.h. der input Box soll das Jahr "intfrage = InputBox("Welches Jahr?")"
aus Master Tabelle (P1) oder aus Blattname "01" wo der Verknüpfung in (P1)ist, die Jahr auslesen können.
Dann in Tabellenbaltt 01 soll das Monat Januar ab Q2:BZ2 eingetragen werden;
Beispiel Q2-01.01.09, R2-02.01.09, S2-03.01.09 etc.
Der gefunden Code macht das nur in einem Blatt.
Wer konnte mir helfen die Variablen so anzupassen dass in Monats Tabellenblätter 01-12 den Kalender in Bestimmten Bereich "Q2:BZ2" eingetragern wird?
Binfür jede Hilfe sehr dankbar.
Netten Gruß Daniel