Vielen Dank Gast98474!
Eine Kleinigkeit hatte nicht gepasst aber das konnte ich dann selbst anpassen. Funktioniert nun wie es soll.
Option Explicit
Sub Makro1()
Makro2 "Tabelle1", "Tabelle2", "Frankfurt ", "a", 6000
End Sub
Sub Makro2(t1, t2, k1, k2, k3)
Dim c As Range
Set c = Sheets(t1).UsedRange
With c
.AutoFilter
.AutoFilter Field:=1, Criteria1:=k1
.AutoFilter Field:=2, Criteria1:=k2
.AutoFilter Field:=3, Criteria1:=">" & CStr(k3), Operator:=xlAnd
If Range("c2").Value <> "" Then
.AutoFilter Field:=3, Operator:=xlAnd
c.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(t2).Range(c.Cells(1).Address)
c.AutoFilter
End If
End With
End Sub
Gruß Frank
|