Felder automatisch markieren
18.11.2002 13:04:07
Jürgen
ich suche schon lange nach einer prozedur die mir hilft bestimmte felder automatisch zu markieren.mein problem ist, dass jeweils 2 felder die mit SA und SO markiert sind grau werden.
da sich aber die felder mit jedem monat verändern mussen sich die darunterliegenden felder, abhängig von den oberen auch verändern.
mit der bedingten formatierung funktioniert es nicht!
ich habe zwar eine prozedur geschrieben, jedoch ist sie sehr umständlich...
Public Sub wochenende_farbaenderung()
If Range("B10") = "Sa" Or Range("B10") = "So" Then
Range("B11:B17").Interior.ColorIndex = 15
Range("B20:B25").Interior.ColorIndex = 15
Range("B28:B33").Interior.ColorIndex = 15
Range("B36:B41").Interior.ColorIndex = 15
Range("B44:B49").Interior.ColorIndex = 15
end If
Die nächste Zelle wäre dann C10 und alles andere auch mit C
dies ist jedoch sehr nervig alles für 31 zellen zu schrieben. wäre super wenn mir jemand mein problem automatisieren könnte
Gruß Jürgen