Wochenende farbig kennzeichnen (ganze Zeile)

Sie haben im PCTip 07.01 ein wunderbares Makro veröffentlicht (http://www.pctip.ch/helpdesk/kummerkasten/archiv/office/18213.asp), welches die Wochenenden farbig kennzeichnet. Wie kann ich erreichen, dass anstelle der einzelnen Zelle mit dem Datum die ganze entsprechende Zeile farbig gekennzeichnet wird?

von Monica Hubacher ,Hansjörg Honegger 07.08.2001 (Letztes Update: 08.08.2001)

Huawei-Phones gewinnen

Machen Sie mit an der PCtipp-Trendumfrage und sichern Sie sich die Chance auf eines von zwei Huawei-Smartphones. Die Umfrage dauert rund 10 Minuten.

An der Umfrage teilnehmen

Um die ganze entsprechende Zeile farbig zu markieren, muss das Makro entsprechend angepasst werden. Die rot markierten Stellen wurden angepasst. Sie können den Code am Ende dieses Artikels kopieren und einfügen.

    Zoom

Neu brauchen Sie bei diesem Makro keinen Bereich mehr anzugeben (A1:A750), sondern Sie markieren einfach den Bereich in Spalte A, der die Daten enthält. Starten Sie dann das Makro, das sich auf diesen markierten Bereich bezieht. Wenn Sie doch lieber mit einem vordefinierten Bereich arbeiten, entfernen Sie das "'"-Zeichen vor dem grünen Text im Makro und setzen das Zeichen in der Zeile darüber vor den Text "For Each Zelle In Selection". Damit wird diese Anweisung stillgelegt (bzw. als Kommentar behandelt)

    Zoom

Kopieren Sie den untenstehenden Text:

---------------------------------------

Sub WeekendZeileFarbig()

Dim Zelle As Range

For Each Zelle In Selection

'For Each Zelle In ActiveSheet.Range("A1:A750")

If Weekday(Zelle) = 1 Then

Zelle.Select

Rows(ActiveCell.Row).Select

Selection.Interior.ColorIndex = 6

ElseIf Weekday(Zelle) = 7 Then

Zelle.Select

Rows(ActiveCell.Row).Select

Selection.Interior.ColorIndex = 4

End If

Next Zelle

Range("A1").Select

End Sub

---------------------------------------


    Kommentare

    Keine Kommentare

    Sie müssen eingeloggt sein, um Kommentare zu verfassen.