|
So ganz konnte ich mich mit Deinem Code noch nicht auseinandersetzen. Aber was heißt das & hinter dem Irow bei "dim lrow&"?
Ich hatte jetzt erst einmal meinen Code verändert, keine Schleife und zwei unterschiedliche Sub Varianten. Bei Tabelle 1 und Tabelle 2 wird der Filter gesetzt. Der Kopiervorgang ist nur zu Tabelle 2 in Tabelle3 sichtbar. Hinter dem letzten Row setzte ich ein +1 damit die erste leere Zeile in Tabelle3 genutzt wird. Anbei mein neuer Code:
Sub autofilterA(copiertab As String, suchwort As String, zieltab As String)
Sheets("Tabelle1").Range("A1").autofilter
Sheets("Tabelle1").Range("A1").autofilter 1, suchwort
Sheets("Tabelle1").Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets(zieltab).Cells(Sheets(zieltab).Cells(Rows.Count, 1) _
.End(xlUp).Row + 1)
End Sub
Sub autofilterB(copiertabB As String, suchwortB As String, zieltabB As String)
Sheets("Tabelle2").Range("A1").autofilter
Sheets("Tabelle2").Range("A1").autofilter 1, suchwortB
Sheets("Tabelle2").Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets(zieltabB).Cells(Sheets(zieltabB).Cells(Rows.Count, 1) _
.End(xlUp).Row + 1)
End Sub
Sub ausfuehrung()
Call autofilterA("Tabelle1", "KTE", "Tabelle3")
Call autofilterB("Tabelle2", "GTE", "Tabelle3")
End Sub
|