Mit nachfolgendem Code fülle ich bestimmte Zeilen mit Hintergrundfarben.
Wenn ich das gleiche manuell mache (ohne VBA), werden die Hintergrundfarben in allen Tabellenblättern übernommen, die gleichzeitig selektiert sind.
Gibt es eine Möglichkeit, dies auch mit VBA zu machen, ohne dass Tabellenblatt für Tabellenblatt abgearbeitet werden muss?
Gruss, Peter
Sub MehrFarbenMarkierung()
Dim i As Integer, iSpA As Integer, iSpE As Integer, iZeA As Integer, iZeE As Integer
iSpA = Range("spLeer").Column: iSpE = Range("spEnde").Column
iZeA = Range("zeStartAll").Row: iZeE = Range("zeEndAll").Row
With Range(Cells(iZeA, iSpA), Cells(iZeE, iSpE))
.Interior.Color = 16777215 '''Keine Füllung
End With
For i = Range("zeStartAll").Row To Range("zeEndAll").Row
Select Case i Mod 6
Case 2
With Range(Cells(i, iSpA), Cells(i, iSpE))
.Interior.Color = 14994616 '''' hell-blaue Füllung
End With
Case 4
With Range(Cells(i, iSpA), Cells(i, iSpE)) ''' hell-gelbe Füllung
.Interior.Color = 10092543
End With
Case 0
With Range(Cells(i, iSpA), Cells(i, iSpE))
.Interior.Color = 11851260 ''' hell-braune Füllung
End With
Case Else
End Select
Next i
End Sub