Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Autofilter für 2 Tabellenblätter

Makro Autofilter für 2 Tabellenblätter
Tina
Hallo zusammen
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
Das Eventmakro sieht wiefolgt aus:
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro Autofilter für 2 Tabellenblätter
26.04.2012 18:31:01
Tino
Hallo,
vielleicht mit einer Schleife über die zwei Tabellen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varObjTab
If Not Intersect(Range("I7"), Target) Is Nothing Then
For Each varObjTab In Array(Tabelle2, Tabelle3) 'Tabellen evtl. anpassen
With varObjTab
If .AutoFilterMode Then .AutoFilterMode = False
If Tabelle1.Range("I6").Value  "" Then
.Range("A19:J1030").AutoFilter _
field:=2, _
Criteria1:=Tabelle1.Range("I6").Value
Else
.Range("A19:J1030").AutoFilter field:=2
End If
End With
Next varObjTab
End If
End Sub
Gruß Tino
AW: Makro Autofilter für 2 Tabellenblätter
27.04.2012 07:55:34
Tina
Hallo Tino
Super! Funktioniert einwandfrei! Vielen Dank für die schnelle Hilfe.
Gruss
Tina
Anzeige

268 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige