|
Das Irow und das iif versteh ich in Deinem Code erst einmal nicht. Ich habe es mal mit einer Schleife versucht. Das funktioniert für die Filterung sehr gut, nur beim Kopiervorgang in der Zieltabelle kommt es zu Überschreibungen. Dadurch fehlen Werte. Kennst Du dafür eine Lösung?
Sub autofilter(copiertab As String, suchwort As String, zieltab As String)
'Updateby Extendoffice
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In Worksheets
If Sh.Name = copiertab Then
Sh.Range("A1").autofilter
Sh.Range("A1").autofilter 1, suchwort
Sh.Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets(zieltab).Cells(Sheets(zieltab).Cells(Rows.Count, 1) _
.End(xlUp).Row, 1)
End If
Next Sh
End Sub
Sub ausfuehrung()
Call autofilter("Tabelle1", "KTE", "Tabelle3")
Call autofilter("Tabelle2", "GTE", "Tabelle3")
End Sub
|