Public Sub Filtern_kopieren()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("$A$1:$C$" & loLetzte).AutoFilter Field:=3, Criteria1:=">0"
If .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then
.AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Else
MsgBox "Kein Filterergebnis"
End If
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub