title image


Smiley Re: Zellen selektiv einfärben jede 4 . Zeile
Hallo Christian,

dann versuchs mal so.

Sub faerben()

Dim i%, y%

'Rücksetzten aller Farben, ggf. Bereich einschränken!

Cells.Interior.ColorIndex = xlNone

For i = 6 To 36

On Error GoTo ende

If WorksheetFunction.Weekday(CDate(i - 5 & "." & [c2] & "." & [k2]), vbMonday) = vbFriday Then

On Error GoTo 0

For y = 5 To 141 Step 4

Cells(y, i).Interior.ColorIndex = 36

Cells(y, i + 1).Interior.ColorIndex = 34

Cells(y, i + 2).Interior.ColorIndex = 8

Next

End If

Next

Exit Sub

ende:

'Fehler 13 kommt bei Monatsende vor dem 31.

If Err.Number 13 Then MsgBox "Fehler " & Err.Number & vbLf & Err.Description

End Sub

Grüße, Andre
[Hochgeladenes Bild]

Grüße von André aus Gera - 97 - 2003


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: