mehrere Bereiche auswählen
09.11.2018 11:29:48
Ulf
ich bekomme es nicht gebacken.
In folgendem Code werden die Zellen B13:B111 nach einer Zahl >0 abgefragt und wenn ja, dann grün eingefärbt.
Private Sub CB_reset_Click()
Dim Zelle As Range
For Each Zelle In Range("B13:B111")
Select Case Zelle.Value
Case Is > 0: Zelle.Interior.ColorIndex = 4
End Select If ActiveSheet.AutoFilterMode Then
ActiveSheet.Rows("1:1").AutoFilter
End If
End Sub
Meine Recherche hat ergebn, dass das irgendwie mit Union gehen müsste.
Ich bekomme das aber nicht hin.
Für eure Hilfe bedanke ich mich im voraus.
Gruß Ulf