also ich filtere meine Tabelle mit folgendem Code:
Sheets("Tabelle1").Activate
AktivesBlatt = ActiveSheet.Name
vTab = ActiveSheet.UsedRange
Zeilen = UBound(vTab, 1)
Workbooks("vba.xls").Activate
AnzIndex = 0
For x = 2 To Zeilen
For y = 3 To lngJ
If (IsEmpty(vTab(x, y)) Or vTab(x, y) <= 0) Then
AnzIndex = AnzIndex + 1
ReDim Preserve IndexTab(1 To AnzIndex)
IndexTab(AnzIndex) = x
Exit For
End If
Next y
Next x
' Statusbar Update
UserForm11.ProgressBar1.Value = UserForm11.ProgressBar1.Value + 15
lngI = Sheets("Tabelle2").UsedRange.Rows.Count
'Alle gemerkten Zeilen von unten nach oben in neues
'Blatt kopieren und dann löschen
For x = AnzIndex To 1 Step -1
Sheets(AktivesBlatt).Rows(IndexTab(x)).Cut
Sheets("Tabelle2").Rows(1).Insert (xlShiftDown)
Sheets(AktivesBlatt).Rows(IndexTab(x)).Delete
Next x
Jetz sollen in die obrige If Bedingung allerdings auch Excelfehler abgefangen werden. Wenn z.B. in einer Zelle "#WERT!" oder "#DIV/0!" steht. Dies kann man allerdings nicht mit diesem Text abfangen, weil in der Zelle "#WERT!" nur angezeigt wird. Eigentlich drinstehen tut "Fehler 2015"!
Noch nebenbei, in der Spalte stehen sonst nur Zahlen...
Greez & thx lace_ee