Makro Autofilter für 2 Tabellenblätter
Tina
Ich habe eine Datei mit mehreren Tabellenblätter. Nun habe ich ein Makro für einen Autofilter in Tabelle 2. Was muss ich machen, wenn ich den selben Autofilter auch für das Tabellenblatt3 anwenden möchte? Die Tabellen sind identisch, nur die hinteren Spalten heissen anders.....
Mein Code sieht folgendermassen aus:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("I7"), Target) Is Nothing Then
If Tabelle2.AutoFilterMode Then Tabelle2.AutoFilterMode = False
If Tabelle1.Range("I6").Value "" Then
Tabelle2.Range("A19:J1030").AutoFilter _
field:=2, _
Criteria1:=Tabelle1.Range("I6").Value
Else
Tabelle2.Range("A19:J1030").AutoFilter field:=2
End If
End If
End Sub
Option Explicit
Sub Makro1()
' Makro1 Makro
ActiveSheet.Range("$A$19:$J$1030").AutoFilter field:=2
End Sub Ich hoffe jemand von euch hat eine Lösung.
Anzeige