Hallo,
schön, dass du etwas willst. Nur mit genauen Informationen willst du nicht rausrücken.
Haben deine Daten im Quellblatt Überschriften?
Wo beginnen deine "eigentlichen Daten" im Quellblatt (Zeile)?
Wohin soll kopiert werden?
Hier mal ein Code. Da gehe ich davon aus, dass im Quellblatt in Zeile 1 Überschriften sind und die eigentlichen Daten ab Zeile 2 beginnen.
Es wird nach Spalte C größer 0 gefiltert und das Filterergebnis wird in Tabelle2 kopiert.
Public Sub Filtern_kopieren()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Blattname anpassen
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) 'Blattname anpassen
Else
MsgBox "Kein Filterergebnis"
End If
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner
|