brauche wieder mal Hilfe
ich möchte gern per Makro einen Filter einstellen, so das die Filterkriterien in den Spalten R-CR auf "Nichtleere" filtert.
Hat jemand eine Ideen?
Gruß Peter
Sub Peter()
Dim InI As Integer
If Not ActiveSheet.AutoFilterMode = True Then Range("R1").AutoFilter
For InI = 18 To 96
Cells(1, InI).AutoFilter Field:=InI, Criteria1:="="
Next InI
End Sub