Mit nachfolgendem Code lege ich einen Farbteppich über die selektierten Zellen.
Nun möchte ich einen weiteres Makro, das mir im selektierten Bereich nur die eingeblendeten Zellen einfärbt.
Ich habe mir folgenden Lösungsansatz überlegt:
Zuweisung der nicht ausgeblendeten Zeilennummern des selektierten Bereichs an eine Variable
Zusätzlich die Farben 0-2-4-6 logisch in dieser Variable "verknüpfen" (die Zeilen 1-3-5 werden nicht eingefärbt)
dann die entsprechenden Zeilen, im Bereich der Selektion, einfärben.
Kann mir da jemand weiterhelfen - oder auf einen besseren Lösungsansatz hinweisen?
Danke und Gruss, Peter
Sub Farbteppich_Selection()
Dim rCell As Range, rBereich As Range
Set rBereich = Selection
For Each rCell In rBereich
Select Case rCell.Row Mod 6
Case 2: rCell.Interior.Color = 14994616 '''' hell-blaue Füllung
Case 4: rCell.Interior.Color = 10092543 ''' hell-gelbe Füllung
Case 0: rCell.Interior.Color = 11851260 ''' hell-braune Füllung
Case Else: rCell.Interior.Color = xlNone
End Select
Next
'On Error GoTo 0
End Sub