Feiertage eintrage in Kalender Makro

Forumthread: Feiertage eintrage in Kalender Makro

23.11.2019 13:14:16

MaBlu

Hallo zusammen
ich habe mir einen Immerwährenden Kalender zusammengebaut, nun fehlen mir nur noch dass die Feiertage aus dem Blatt "Feiertage" in das Blatt "Tabelle1" eingetragen werden aber nur als Text wie ich bereits einige eingetragen habe, das ganze möchte ich mittels eines Makros mit Button erledigen, damit nicht weitere eingaben überschrieben werden. Also würde ich jedes neue Jahr zuerst die Feiertage eingeben und dann weitere Einträge.
Ich habe nach Möglichkeiten gesucht, habe auch ähnliche Kalender gesehen kann aber die Makros nicht lesen und weiss somit nicht weiter.
Ich hoffe ich konnte mich klar ausdrücken und bedanke mich für eure Hilfe.
https://www.herber.de/bbs/user/133389.zip
Lieber Gruss
MaBlu

Function Feiertag(Datum As Date) As String Dim J%, D% Dim O As Date J = Year(Datum) 'Osterberechnung D = (((255 - 11 * (J Mod 19)) - 21) Mod 30) + 21 O = DateSerial(J, 3, 1) + D + (D > 48) + 6 - _ ((J + J \ 4 + D + (D > 48) + 1) Mod 7) 'Feiertage berechnen Select Case Datum Case DateSerial(J, 1, 1) Feiertag = "Neujahr" Case DateSerial(J, 1, 6) Feiertag = "Dreikönig*" Case DateAdd("D", -2, O) Feiertag = "Karfreitag" Case O Feiertag = "Ostersonntag" Case DateAdd("D", 1, O) Feiertag = "Ostermontag" Case DateSerial(J, 5, 1) Feiertag = "Erster Mai" Case DateAdd("D", 39, O) Feiertag = "Christi Himmelfahrt" Case DateAdd("D", 49, O) Feiertag = "Pfingstsonntag" Case DateAdd("D", 50, O) Feiertag = "Pfingstmontag" Case DateAdd("D", 60, O) Feiertag = "Fronleichnam*" Case DateSerial(J, 8, 15) Feiertag = "Maria Himmelfahrt*" Case DateSerial(J, 10, 3) Feiertag = "Deutsche Einheit" Case DateSerial(J, 11, 22) - (DateSerial(J, 11, 18) Mod 7) Feiertag = "Buß- und Bettag*" Case DateSerial(J, 10, 31) Feiertag = "Reformationstag*" Case DateSerial(J, 11, 1) Feiertag = "Allerheiligen*" Case DateSerial(J, 12, 24) Feiertag = "Heilig Abend*" Case DateSerial(J, 12, 25) Feiertag = "EWeihnacht" Case DateSerial(J, 12, 26) Feiertag = "ZWeihnacht" Case DateSerial(J, 12, 31) Feiertag = "Silvester*" Case Else Feiertag = "" End Select End Function

Hallo ???,
so, hier, teste mal:
https://www.herber.de/bbs/user/133499.xlsm
ich habe deine Datei so richtig umgekrempelt! :-)
"Mein" Button "Feiertage" wird zwar noch angezeigt, aber ich hab ihn "ausgeschaltet".
"Dein" Drehfeld neben der Jahreszahl in Zelle D14 ist zwar noch vorhanden, aber ich hab ihn nach Zelle J4 verschoben; und auch "ausgeschaltet".
Denn... (und jetzt kommts! :-) )
...ich habe neben die Jahreszahl in Zelle D14 einen neuen Drehfeld-Button eingefügt.
Das neue Drehfeld verändert genau so die Jahreszahl in D14 wie dein altes Drehfeld.
Aber das neue Drehfeld ändert zusätzlich den Namen des Jahreskalenders.
Das heißt, wenn du mit dem Drehfeld z Bsp das Jahr 2022 einstellst, dann "heißt" auch die Tabelle 2022.
Wenn du mit dem Drehfeld das Jahr z Bsp auf 2019 einstellst, dann "heißt" auch die Tabelle 2019.
So finde zumindest ich es besser. Denn vorher war egal, welches Jahr du eingestellt hast.
Der Name der Tabelle war - immer - 2020
Zusätzlich hat das neue Drehfeld auch die Funktion des vorherigen "Feiertage"-Buttons übernommen.
Das heißt, wenn du mit dem Drehfeld das Jahr z Bsp auf 2021 einstellst, dann werden zuerst alle alten Feiertage und sonstige Zelleinträge gelöscht und automatisch die neuen Feiertage für das Jahr 2021 eingetragen.
Wozu einen extra "Feiertage"-Button anklicken müssen??
Und noch mal zusätzlich wird mit Veränderung durch das neue Drehfeld auch bei jedem Feiertag, der auf einen Donnerstag fällt, der Zusatz " Probe" an den jeweiligen Feiertagsnamen angehängt - in schwarzer Farbe! ;-)
So hast du jetzt also nur noch einen einzigen Button - das neue Drehfeld - der alle von dir gewünschten Änderungen durchführt, für die du jeweils einen zusätzlichen Button haben wolltest.
Wenn dir all das so gefällt, dann kannst du die alten Button und die Beschreibungstexte dazu von mir löschen.
Sollte dir all das Neue nicht gefallen, dann schreib ruhig wieder, und ich werde es - genau so - umbauen mit zusätzlichen Button, wie du es eigentlich wolltest.
Konnte ich denn helfen?
Ciao
Thorsten

hier:
https://www.herber.de/bbs/user/133500.xlsm
ich habe alle "alten" Buttons + meine Hinweise gelöscht, so dass der Kalender "gebrauchsfertig" aussieht
Ich habe...
...den Code so umgebaut, dass bei der Jahresänderung durch Nutzung des Drehfelds ein neues Tabellenblatt mit der gewählten Jahreszahl erstellt wird. Der "alte" Kalender bleibt mit allen Einträgen bestehen.
...eine Kontrolle eingebaut, dass du einen schon bestehenden Jahreskalender nicht noch einmal erstellen kannst.
Probier es aus: Erstell den Kalender für das Jahr 2020. Wechsel zurück zum Kalender für das Jahr 2019 und erstell erneut den Kalender für 2020. Du wirst darauf hingewiesen, dass es den Kalender 2020 schon gibt, und dass du ihn erst löschen musst, bevor du ihn erneut erstellen kannst.
ganz wichtig!
Mein Code funktioniert nur bei Nutzung des Drehfeldes!
Du kannst den Wert in Zelle D14 auch durch einfaches Überschreiben ändern.
Aber dann ändert sich nur der Wert in Zelle D14. Mein Code wird dann nicht gestartet.
Solltest du mit meiner Datei Probleme feststellen, oder solltest du weitere, neue Iden haben, dann erstell einen neuen Thread.
(ich hoffe, du findest diese meine Antwort noch, da dieser Gesamt-Beitrag ins Archiv verschoben wurde. Das geschieht mit jedem Thread nach ca 1 Woche)
Hilfts denn?
Ciao
Thorsten

Infobox / Tutorial

Feiertage in Excel Kalender automatisch eintragen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Makro aktivieren: Stelle sicher, dass die Makros in Deiner Excel-Datei aktiviert sind. Gehe dazu auf "Datei" > "Optionen" > "Trust Center" > "Einstellungen für das Trust Center" und aktiviere die Makros.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeinKalender.xlsx)" und wähle "Einfügen" > "Modul".

Code einfügen: Füge den folgenden VBA-Code in das Modul ein:

Sub FeiertageEintragen()
   Dim Feiertage As Range
   Dim Zelle As Range
   Dim Jahr As Integer

   Jahr = Range("D14").Value ' Zelle D14 enthält das Jahr
   Set Feiertage = Sheets("Feiertage").Range("A1:A10") ' Bereich der Feiertage anpassen

   For Each Zelle In Feiertage
       If Not IsEmpty(Zelle.Value) Then
           Sheets("Tabelle1").Cells(Zelle.Row, 1).Value = Zelle.Value & " " & Jahr
       End If
   Next Zelle
End Sub

Button hinzufügen: Gehe zurück zu Deinem Excel-Blatt, wähle "Entwicklertools" > "Einfügen" > "Button" und ziehe den Button auf das Blatt. Wähle das gerade erstellte Makro "FeiertageEintragen" aus.
Jahr eingeben: Stelle sicher, dass in Zelle D14 das gewünschte Jahr eingegeben ist.
Makro ausführen: Klicke auf den Button, um die Feiertage in das Blatt "Tabelle1" automatisch einzutragen.

Häufige Fehler und Lösungen

Makro funktioniert nicht: Stelle sicher, dass die Makros aktiviert sind und dass der Code korrekt eingefügt wurde.
Falsche Feiertage angezeigt: Überprüfe den Bereich für die Feiertage im Code und passe ihn gegebenenfalls an.
Feiertage in Excel nicht angezeigt: Stelle sicher, dass die Feiertage im richtigen Format in der "Feiertage"-Tabelle eingegeben sind.

Alternative Methoden

Excel-Formeln: Anstatt VBA zu nutzen, kannst Du auch Excel-Formeln verwenden, um Feiertage zu berechnen, z.B. durch die Verwendung von WENN-Funktionen, um spezifische Daten zu vergleichen.
Add-Ins: Es gibt verschiedene Excel-Add-Ins, die Feiertage automatisch in Deinen Kalender eintragen können. Suche im Microsoft Store nach solchen Add-Ins.

Praktische Beispiele

Jahreskalender mit Feiertagen 2020: Erstelle einen Jahreskalender für 2020, indem Du das Jahr in Zelle D14 eingibst und auf den Button klickst. Die Feiertage werden automatisch in "Tabelle1" eingetragen.
Kalender für die Schweiz: Wenn Du die Feiertage in Excel für die Schweiz berechnen möchtest, stelle sicher, dass Du die entsprechenden Feiertage in Deiner "Feiertage"-Tabelle einträgst.

Tipps für Profis

Dynamische Bereiche: Verwende dynamische Bereiche in Deiner Feiertage-Tabelle, damit Du die Anzahl der Feiertage in Zukunft einfach anpassen kannst, ohne den VBA-Code ändern zu müssen.
Farben anpassen: Du kannst den Code erweitern, um Feiertage farbig zu markieren, indem Du z.B. Interior.Color in den VBA-Code einfügst.
Automatisierung verbessern: Du kannst das Makro so anpassen, dass es automatisch ausgeführt wird, wenn Du das Jahr in Zelle D14 änderst.

FAQ: Häufige Fragen

1. Wie kann ich Feiertage in Excel automatisch eintragen? Durch das Erstellen eines VBA-Makros, das die Feiertage aus einer separaten Tabelle in Deinen Kalender überträgt.

2. Funktioniert das auch für den deutschen Kalender? Ja, Du kannst die Feiertage für den deutschen Kalender anpassen, indem Du die entsprechenden Daten in die "Feiertage"-Tabelle einträgst.

Beliebteste Forumthreads (12 Monate)

Feiertage eintrage in Kalender Makro

Forumthread: Feiertage eintrage in Kalender Makro

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Feiertage in Excel Kalender automatisch eintragen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Feiertage eintrage in Kalender Makro

Forumthread: Feiertage eintrage in Kalender Makro

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Feiertage in Excel Kalender automatisch eintragen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread