Guten Tag,
ich setze mit einem Autofilter diverse Kritieren auf meine Tabelle, bestimme dann die letzte Zeile und selektiere nur die sichtbaren, um diese farbig hervorzuheben.
Wenn nach meinem Filter nur 1 Objekt über bleibt, dann wird komischerweise alles selektiert und nicht nur A2 bis A2.
Habe ich hier einen Denkfehler oder muss ich noch eine If einbauen falls lastrow = 1 ist?
With Sheets(1).Range("A1:P1")
.AutoFilter Field:=12, Criteria1:=Array("Rot", "Blau"), Operator:=xlFilterValues
End With
lastRow = Range("F" & Rows.Count).End(xlUp).Row
' Selektiere nur die sichtbare
Range("F2:F" & lastRow).SpecialCells(xlCellTypeVisible).Select
' Färbe die selektierten blau
With Selection.Interior
.Color = 1
End With
Vielen Dank!