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
c.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(t2).Range(c.Cells(1).Address)
c.AutoFilter
End With
End Sub
|