Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1280to1284
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

Autofilterkriterium per VBA auslesen

Autofilterkriterium per VBA auslesen
05.10.2012 14:31:13
VBANoob
Hallo,
ich habe in I37:I41 "USRL1":"USRL5" stehen. Ich bräuchte in N37:N41 jeweils per VBA einen Absprung auf ein Sheet namens Abfrage_FACT in der selben Mappe, wobei durch den Absprung gleich in Abfrage_FACT ein Filter auf Spalte H (ab H3)gesetzt werden soll, der auf den jeweiligen Eintrag in Spalte I des ursprünglichen Sheets filtert. Z.B. steht in I39 "USRL3", und wenn ich in N39 klicke, sollen in Abfrage_FACT nurnoch die Zeilen gezeigt werden, die in Spalte H "USRL3" stehen haben.
Geht das?
Danke und lg,
VBANoob

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilterkriterium per VBA auslesen
07.10.2012 22:16:41
fcs
Hallo VBANoob,
'Code unter dem Tabellenblatt in dem der Eintrag per Doppelklick _
im Zellbereich N37:N41 gewählt wird.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wksZiel As Worksheet, varWert As Variant
Set wksZiel = Worksheets("Abfrage_FACT")
If Not Intersect(Target, Range("N37:N41")) Is Nothing And Target.Cells.Count = 1 Then
varWert = Cells(Target.Row, 9).Value 'Wert in Spalte I der Zeile
Cancel = True
With wksZiel
.Activate
If .AutoFilterMode = True Then .AutoFilterMode = False
.Range(.Cells(3, 8), .Cells(.Rows.Count, 8).End(xlUp)).AutoFilter Field:=1, Criteria1:= _
varWert
End With
End If
End Sub

Gruß
Franz
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige