HERBERS Excel-Forum - die Beispiele

Thema: Tagesblätter eines Monats ohne Wochenenden und Feiertage anlegen

Home

Gruppe

DatumZeit

Problem

Wie kann ich in der aktuellen Arbeitsmappe für jeden Tag des Monats ein Arbeitsblatt anlegen, wobei Wochenenden und Feiertage ausgespart bleiben sollen? Die Tagesblättter sind nach Datum zu benennen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub MonatAnlegen()
   Dim wks As Worksheet
   Dim datDay As Date
   Dim var As Variant
   Dim lDay As Long
   Dim iYear As Integer, iMonth As Integer
   Application.ScreenUpdating = False
   Set wks = ActiveSheet
   iYear = Year(Range("A1").Value)
   iMonth = Month(Range("A1").Value)
   For lDay = DateSerial(iYear, iMonth, 1) To _
      DateSerial(iYear, iMonth + 1, 0)
      var = Application.Match( _
         lDay, Worksheets("Feiertage").Columns(1), 0)
      If IsError(var) And WorksheetFunction.WeekDay(lDay) < 6 Then
         Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
         ActiveSheet.Name = Format(lDay, "dd.mm.yy")
      End If
   Next lDay
   wks.Select
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Kalender

Outlook Kalender-Import Kalender mehrtägige Termine
Kalenderwoche Kalender plötzlich weg
Kalenderwochen Excel-Daten in Outlook Kalender übermitteln
Wochenarbeitsstunden anhand der Kalenderwoche Kalender dynamisch anpassen
Termine in Kalender eintragen Problem mit Kalenderwoche
Kalendersteuerlement Wochentag Werte aus Monatsspalten in Kalenderwochenspalten
Kalender-Steuerelement Kalender
Kalenderwoche Kalender einblenden
Kalendereintrag in einen freigegebenen Kal Kalender für UserForm
Prüfung nach Kalenderwoche DatumZeit subtrahieren ergibt falschen Monatswert
Kalendertage eines Zeitraumes ermitteln Steuerelement-Kalender
abfragen Kalenderwoche Format von Kalenderwochen
Summe über Kalenderwochen Schichtkalender
Bewegter Feiertage im Kalender eintargen Kalenderfunktion und mehr
Kalender Kalender - Summe der Wochentage
Schichtsystem im Kalender Kalender Bedingte Formatieren
Exceltermin in Outlookkalender übertragen daten aus liste auslesen und in kalender eintragen
Datum, Kalenderwoche und Quartal Kalenderwoche ausgeben
Schichtkalender - 29.Februar KalenderWoche
Anzahl Kalendertage im aktuellen Monat ermitteln Addition von Werten aus einer Kalenderwoche
Laufzeitfehler bei Kalendererstellung Kalender Dienstplan
Kalenderwoche u. Feiertage Hilfe, Zeiträume im Kalender farbig darstellen
Excel Kalender + Uhrzeit Kalender mit Schicht u. KW Anzeige ?
So und Feiertage mit zusammenwirken von Kalender Kalender
Arbeitskalender Kalender - Zeile per VBA ausblenden