Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.


Share this Page URL
Help

Kapitel 22: So planen Sie Fehlzeiten und... > 22.3 So legen Sie die Wochenenden un... - Pg. 461

So legen Sie die Wochenenden und Feiertage fest Range("GK7:GN250").ClearContents Application.EnableEvents = True End Sub Bevor der Anwender diese Aufgabe ausführt, wird sicherheitshalber noch einmal abgefragt, ob diese Aufgabe wirklich durchgeführt werden soll. Danach wird die Ereignissteuerung von Excel kurzfristig ausgeschaltet, und danach werden in den beiden ersten Tabellen die Inhalte (Kürzel) über die Methode ClearContents ent- fernt. Nun wird die Ereignissteuerung von Excel wieder eingeschaltet, indem die Eigenschaft EnableEvents auf den Wert True gesetzt wird. 17 18 19 22.3 So legen Sie die Wochenenden und Feiertage fest Der Fehlzeit-Planer hat ein eigenes Menü, das beim Öffnen des Planers dynamisch in die bestehende Menüleiste integriert wird. Selbstverständlich wird dieses Menü beim Schließen des Planers wieder entfernt. 20 21 22.3.1 So ermitteln und kennzeichnen Sie Wochenenden Das folgende Makro aus Listing 22.3 kennzeichnet die Wochenenden in den ersten beiden Tabellen, indem es diese mit der Hintergrundfarbe Hellblau belegt. Listing 22.3: Die Wochenenden im Kalender kennzeichnen Sub WochenendenKennzeichnen() Const Tab1 = "Jan-Jun" Const Tab2 = "Jul-Dez" Dim intS As Integer With Sheets(Tab1) For intS = 8 To 189 If Weekday(.Cells(5, intS).Value) = 1 Or Weekday(.Cells(5, intS)) = 7 _ And .Cells(5, intS).Value <> "" Then .Range(.Cells(5, intS), .Cells(100, intS)).Interior.ColorIndex = 33 Else End If Next intS End With With Sheets(Tab2) For intS = 8 To 191 If Weekday(.Cells(5, intS).Value) = 1 Or Weekday(.Cells(5, intS).Value) = 7 _ And .Cells(5, intS).Value <> "" Then .Range(.Cells(5, intS), .Cells(100, intS)).Interior.ColorIndex = 33 Else End If Next intS End With End Sub 22 23 24 25 26 27 28 29 30 31 32 In einer Schleife werden die Spalten H bis GF der Tabelle J AN -J UN bzw. die Spalten H bis GI der Tabelle J UL -D EZ angesteuert. Innerhalb der Schleife wird die jeweilige 461