Per Mausklick Tabelle filtern

Hallo Leute,
ich habe folgendes Problem.
Ich habe 1 File mit zwei Tabellen
1.Tabelle "Auswahl" enthält 2 Spalten - z.B. Produktgruppe und Bezeichnung
2.Tabelle "Produkte" enthält 8 Spalten mit Details zu den Produkten, unter anderem auch die Produktgruppe.
Jetzt soll auf Tabelle 1 eine Produktgruppe angeklickt werden (keine Abfrage mit Auswahl etc. sondern eher wie ein Link)
Daraufhin soll Tabelle 2 entsprechend des Klicks gefiltert angezeigt werden.
Ich habe eine Beispieldatei angehangen zum besseren Verständnis.
https://www.herber.de/bbs/user/88958.xlsm
Die Aufgabe ist nun ein Makro zu erstellen, das einen Mausklick auf eine Produktgruppe erkennt, diese Zelle ausliest und dann auf der anderen Tabelle den Filter nach dieser ausgelesenen Produkt Gruppe filtert.
Ich hoffe ich habe die Aufgabe verständlich erläutert und bitte nun Euch um Eure Hilfe, da ich mit dem richtigen Ansatz etwas überfordert bin.
Vielen Dank im Voraus
Liebe Grüße - ChrisW

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then If Target "" Then Cancel = True With Sheets("Produkte") .Cells(1, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:=Target .Activate End With End If End If End Sub

Hallo Rudi,
superklasse, das ist das was ich brauchte. Leider funktioniert dieses Makro nur, wenn ich es direkt ins sheet selbst reinschreibe.
Leider werden die beiden Tabellen aus einer Datenbank importiert in ein Workbook, das mit diversen anderen Tabellen diese 2 Tabellen beim Update komplett entfernt und neue Tabellen mit vielleicht anderen Namen einfügt.
Das heisst, die Tabelle heisst nicht einfach nur "Auswahl" sondern "Auswahl-50170" oder "Auswahl-12345" je nach importierter Postleitzahl
Deshalb kann ich den VBA code nicht einmalig dem Blatt zuordnen und dann den Blattinhalt überschreiben, sondern es sollte per VBA Code dem Blatt zugewiesen werden oder universell aus dem "ThisWorkbook" gestartet werden.
Also sollte es 2 Lösungsansätze geben:
1. Kann ich "deinen" VBA code mittels VBA in das "Microsoft Excel Object" Worksheet "Auswahl" schreiben / übertragen?
2. Kann ich das Makro auch auslösen durch rechts klick, wenn es im "ThisWorkbook" steht? Welche Modifikation muss ich dafür machen?
Vielen Dank für deine Hilfe
ChrisW

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ Boolean) If Left(Sh.Name, 7) = "Auswahl" Then If Target.Column = 1 Then If Target "" Then Cancel = True With Sheets("Produkte") .Cells(1, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:=Target .Activate End With End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread