Outlook bietet von Haus aus an, Feiertage zu importieren. Es werden dabei alle Feiertage des gew\u00e4hlten Landes importiert und mit der Kategorie „Feiertag“ versehen. Da bei mir in NRW nicht an allen deutschen Feiertagen frei ist, \u00a0k\u00f6nnen diese getrost aus der Kategorie „Feiertag“ entfernt werden. Da ich an den \u00fcbrigen Feiertagen allerdings in der Regel nicht im B\u00fcro bin, k\u00f6nnen diese auch auf „abwesend“ gesetzt werden.<\/p>\n
Das Entfernen der Kategorie geht von Hand relativ schnell. Die anderen Tage auf „abwesend“ zu setzen ist hingegen von Hand eher eine Flei\u00dfarbeit. Das folgende Outlook VBA-Makro \u00fcbernimmt diese Aufgabe und kann auch leicht an andere Bundesl\u00e4nder angepasst werden.<\/p>\n
Hinweis:<\/span> Das Importieren der Feiertage in Outlook 2010 erfolgt \u00fcber Datei – Optionen – Kalender<\/em> und dort unter Kalenderoptionen<\/em> \u00fcber die Schaltfl\u00e4che Feiertage hinzuf\u00fcgen<\/em>.<\/p>\n Beschreibung Outlook bietet von Haus aus an, Feiertage zu importieren. Es werden dabei alle Feiertage des gew\u00e4hlten Landes importiert und mit der Kategorie „Feiertag“ versehen. Da bei mir in NRW nicht an allen deutschen Feiertagen frei ist, \u00a0k\u00f6nnen diese getrost aus der Kategorie „Feiertag“ entfernt werden. Da ich an den \u00fcbrigen Feiertagen allerdings in der […]<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[29,47],"tags":[48,49,37],"class_list":["post-1602","post","type-post","status-publish","format-standard","hentry","category-startseite","category-vba-outlook","tag-outlook","tag-programmieren","tag-vba"],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p5LyzC-pQ","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1602","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1602"}],"version-history":[{"count":19,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1602\/revisions"}],"predecessor-version":[{"id":1604,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1602\/revisions\/1604"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1602"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1602"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1602"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}Sourcecode<\/h1>\n
Sub setFeiertageAbwesend()\r\n ' Die Anwendung erfolgt im gerade selektierten Kalender\r\n Dim olFolder As MAPIFolder\r\n Set olFolder = Application.ActiveExplorer.CurrentFolder\r\n\r\n ' Ist kein Kalender selektiert, wird die Operation \u00fcbersprungen\r\n If olFolder.DefaultItemType = olAppointmentItem Then\r\n Dim olApptItem As Outlook.AppointmentItem\r\n\r\n For Each olApptItem In olFolder.Items\r\n With olApptItem\r\n ' Nur Termine der Kategorie "Feiertag" bearbeiten\r\n If InStr(.Categories, "Feiertag") Then\r\n ' Nur Termine die als "frei" angezeigt werden bearbeiten\r\n If .BusyStatus = olFree Then\r\n ' Nur NRW-Feiertage als "Abwesend" markieren\r\n If InStr(.ConversationTopic, "Heilige Drei K\u00f6nige") = 0 And _\r\n InStr(.ConversationTopic, "Mari\u00e4 Himmelfahrt") = 0 And _\r\n InStr(.ConversationTopic, "Bu\u00df- und Bettag") = 0 And _\r\n InStr(.ConversationTopic, "Reformationstag") = 0 Then\r\n .BusyStatus = olOutOfOffice\r\n .Save\r\n Else\r\n ' Nicht NRW-Feiertage aus der Kategorie "Feiertag" entfernen\r\n .Categories = Replace(.Categories, "Feiertag", "")\r\n .Save\r\n End If\r\n End If\r\n End If\r\n End With\r\n Next olApptItem\r\n End If\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"