Hallo,
ich filtere mir Daten aus einer Tabelle wie folgt:
With Worksheets("Sheet")
.Range("$A$2:$G$9999").AutoFilter Field:=1, Criteria1:=psp
filterRowsZSHP = .Range("A2:" & "A" & .Cells(rows.Count, "A").End(xlUp).row).SpecialCells(xlCellTypeVisible).Count
If filterRowsZSHP > 0 Then
Set dataZSHP = .Range("A2:" & "B" & .Cells(rows.Count, "A").End(xlUp).row).SpecialCells(xlCellTypeVisible)
End If
End With
Funktioniert soweit - nur: filterRowsZSHP steht auch auf "1" wenn das Filter-Ergebnis keine Zeilen ergibt - und leider auch "1" wenn eine Zeile gefiltert wurde.
Hat jemand eine Idee, wie ich das Abfangen kann?
Danke !
Georg