Thema: Monatsblatt anlegen

Home

Gruppe

Ereignis

Problem

Wie kann ich durch Eingabe der Monats- bzw. Jahreszahl automatisch die Tage als Zahl und im Format DDD eintragen lassen. Die Routine soll automatisch die Anzahl der Tage erkennen und die Wochenenden farbig hinterlegen.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim lDay As Long, lStart As Long, lEnd As Long
   Dim iDay As Integer
   If Target.Address <> "$B$1" And _
      Target.Address <> "$D$1" Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   With Rows("2:3")
      .ClearContents
      .ClearFormats
      .HorizontalAlignment = xlCenter
   End With
   lStart = DateSerial(Range("D1").Value, Range("B1").Value, 1)
   lEnd = DateSerial(Range("D1").Value, Range("B1").Value + 1, 0)
   For lDay = lStart To lEnd
      iDay = iDay + 1
      Cells(2, iDay).Value = iDay
      Cells(3, iDay).Value = Format(lDay, "dddd")
      If Weekday(lDay) = 7 Then
         Cells(3, iDay).Interior.ColorIndex = 34
      ElseIf Weekday(lDay) = 1 Then
         Cells(3, iDay).Interior.ColorIndex = 35
      End If
   Next lDay
   Me.Name = Format(DateSerial(1, Range("B1").Value, 1), "mmmm")
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Worksheet_Change auf 2 Zellen anwenden	Mit Change() o. Calculate() Filtern und Drucken
Grafik nach Change in Exceltabelle laden	Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis	Namen definiert- in Ereignis verwenden?
Mail Exchange Server	Workbook_SheetChange löscht Zwischenspeicher ...
On Worksheet Change - simulieren?!	ChangeFileAccess
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen	Worksheet_SelectionChange
Ereignisprozedur f. Multipage-Reiter	Frage zum Change ereignis
Fehler bei Changelink	Worksheet_SelectionChange bzw. Interior
Change	Kein Change in Combobox erlauben(wenn false)
Überprüfung von Zellen mit Worksheet change	SheetChange_Endlosschleife
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Bei "Worksheet_Change" aktuelles Datum in J3
Worksheet_Activate() / Worksheet_Change()	Warum kann ich nicht Worksheet_Change
Welches Diagramm-Ereignis?	Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis	Ereignis von Laufzeit-Checkbox
change-ereignis bei dynamischen Controls / Teil 2	Change Ereignis verhindern
Workcheet-Change / Schleife.....	change-ereignis bei dynamisch erstellten Controls
Worksheet_Change auf Spalten beschränken	Worksheet_Change ohne aktive Zelleingabe
Private Sub Worksheet_Change(ByVal Target As Range	For Each CheckBox, Change Value
Change(ByVal Target as range	ComboBox.Change - ComboBox.Load Problem
Zwei Mal If inersect Ranges nach Worksheet change	Schaltfläche - Ereignis erst nach Bestätigung ausl
SelectionChange - Change - Reihenfolge?	Schleife bei Worksheet_Change
Objekt_Error - Ereignis in UserForm	"Private Sub Worksheet_Change" deaktivieren