VBA Excel Kalender erstellen

Hallo Miteinander ich bin Neu hier und hätte ein kleines Problem was ich gern lösen würde.Ich würde gern für nächstes Jahr (und kommende Jahre) einen Kalender erstellen wollen womit ich mit Hilfe eines Commantbutton einen Kalender erstellen kann in dem Wochenende Markiert wird wie auch Feiertage (Sachsen) und ich eine Tabelle oder so hinderlegen kann wo ich noch Berufsschule,Urlaub und so eintragen kann und er sie mit in den Kalender einträgt.Ich weiß das es relativ knifflich zusammengewürfelt bekommt aber zum Schluss will ich damit erreichen das nur der Commantbutton gedrückt wird und er sich alle weiteren Tagen Sucht und er mir zum Schluss den Kalender ausspuckt wo alle hinderlegten Informationen drin sind.Bin wirklich am Verzweifeln da ich über eine Woche jeden Tag dran rumtüfftle aber, ich denke mich nur im Kreis zu drehen.Hier meine bisherigen Ergebnisse leider kommt Laufzeitfehler 1004 Anwendungs-oder Objektdefinierter Fehler.Der Debugger zeigt mir an das an dieser Zeile was faul ist.
With Worksheets("Kalender").Range("A1;L32") = Worksheets("Kalender").Cells = "bytMonth"
Habe wirklich noch nicht groß mit VBA gearbeitet bis auf jetzt für den Kalender also bitte ich höflichst um Verzeihung falls Anfängerfehler aufdrehten.Aber würde mich wirklich sehr freuen wenn mir jemand helfen kann.Denn ich will das Projekt zuende bringen und nicht jetzt wo so viel reininvestiert wurde an Zeit einstampfen. :(
https://www.herber.de/bbs/user/88437.xlsm

Es gibt 2 Arten von Feiertage,
Einmal die an einen Festen Tag gebunden sind:
Heiligabend, Tag der Einheit
Diese kannst du mit Dateserial(varyear, 12, 24) abfragen
und die ich nach Ostern richten:
Karfreitag, Pfingsten
Um den Ostersonntag zu errechnen gibt es z. Bsp die Funktion:

Public Function Ostersonntag( _
Optional ByVal Jahr As Integer _
) As Variant
Dim d1 As Integer
Dim d2 As Integer
Dim d3 As Integer
Dim d4 As Integer
'Formel nach Gauss gilt 1583 - 8202
If Jahr = 0 Then Jahr = Year(Now)
If Jahr  8202 Then _
Err.Raise 5 'Invalid argument'
'Berechnung
d1 = (8 * (Jahr \ 100) + 13) \ 25 - 2
d2 = (Jahr \ 100) - (Jahr \ 400) - 2
d1 = (15 + d2 - d1) Mod 30
d3 = 2 * (Jahr Mod 4) + 4 * (Jahr Mod 7)
d4 = (d1 + 19 * (Jahr Mod 19)) Mod 30
If d4 = 29 Then
d4 = 28
ElseIf d4 = 28 Then
If (Jahr Mod 19) > 10 Then d4 = 27
End If
d3 = (6 + d2 + d3 + 6 * d4) Mod 7
'Berechnung Des Datums (ausgehend vom 22.3.)
Ostersonntag = DateSerial(Jahr, 3, 22 + d4 + d3)
End Function

Mit Ostersonntag(varYear) erhält du den das Datum für den Ostersonntag im Jahr
dann kannst du mit Ostersonntag(varYear) + 1 für (Ostermontag) abfragen.
gruss
AndrRo

Forumthread: VBA Excel Kalender erstellen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial