Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Filter setzen per makro

Filter setzen per makro
28.01.2004 17:07:38
Martin S.
Hallo zusammen,
wie kann ich per makro einen Autofilter in einem Tabellenblatt aktivieren, wenn der Wert einer Zelle in einem anderen Blatt das Auswahlkriterium bildet.
Beispiel: In Abeitsblatt 1 steht in Zelle a1 der Wert "Meier"
Im anderen Blatt kann in Spalte 3 u.a. nach "Meier, Müller, Schulze" gefilter werden.
Ich hoffe, das ich mich einigermaßen verständlich ausgedrückt habe.
Für ein paar passende VBA-Code-Zeilen wäre ich dankbar!
Gruß
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter setzen per makro
28.01.2004 17:41:55
Karl-Otto Reimann
Hallo Martin
In Tab4 wird nach Tab3A1 gesucht und in Tab2 übertragen

Sub FilternUndKopieren()
Application.ScreenUpdating = False
Sheets("Tabelle4").Select
With Range("A1")
.AutoFilter Field:=1, Criteria1:=Sheets("Tabelle3").Range("A1").Value
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Range("A1")
End With
End Sub

Gruß
Karl-Otto

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige