Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

WochenendeMarkieren

WochenendeMarkieren
18.05.2002 20:46:24
Jens
schönen guten Abend zusammen
Wer kann mir helfe das Makro so umzubauen das ganze Spalte ab Zeile 3 mit der entsprechenden Formatierung belegt wird?

Sub WochenendeMarkieren1()
Dim C As Range
For Each C In ActiveSheet.Range("B2:AF2")
If IsEmpty(C) Then Exit Sub
If C = "So" Or WeekDay(C) = 1 Then
With C.Interior
.ColorIndex = 0
.Pattern = xlGray50
.PatternColorIndex = 3
End With
ElseIf C = "Sa" Or WeekDay(C) = 7 Then
With C.Interior
.ColorIndex = 0
.Pattern = xlGray25
.PatternColorIndex = 3
End With
End If
Next C
End Sub

Vielen Dank im voraus Jens

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: WochenendeMarkieren
18.05.2002 20:49:45
Hajo
Hallo Jens

das Wochenende kannst Du auch ohne VBA markieren

Format, Bedingte Formairierung, Formel ist
=WOCHENTAG($B12;2)>5
Format einstellen

wenn das Datum in B12 steht

Gruß Hajo

Re: WochenendeMarkieren
19.05.2002 10:30:28
Rolf, Lgh.
Hallo Jens,
mein Vorschlag (Or WeekDay(C) = 1 bzw. 7 führte bei mir [Excel 2002] zu einer Fehlermeldung und habe es daher weggelassen):

Gruss Rolf
oder (schneller)...
19.05.2002 11:20:52
Rolf, Lgh.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige