Selektion nach Doppelklick und Referenz

Hallo Excel-Fans,
hat einer von euch eine Lösung für nachfolgendes Problem?
Ich habe in einem Tabellenblatt eine kleine Liste.
Wenn ich auf einen Listeneintrag (Spalte A oder Spalte B) einen Doppelklick
mache, dann soll anhand der Wertes hinter dem Doppelklick, in dem 2'ten Tabellenblatt nur die Spalten angezeigt werden, die den gleichen Wert in den Zeilen haben und in der 2'ten Zeile die gleiche Zuordnung haben.
Beispiel: Ich klicke im Blatt "Zuordnungen" auf "Auto", dann möchte ich danach direkt auf das Blatt "Liste" nur die Einträge in der Spalte "D" sehen, auf dem ich einen Doppelklick gemacht habe, aber auch alle Spalten, die den Überbegriff z. B. "Versicherung" haben.
Die Werte in den Tabellen sind natürlich nur Platzhalter und sollten universell zu handhaben sein (also nicht "Versicherung" oder "Reisen").
Wer kann mir dabei helfen?
Danke!

Hallo Jens,
meinst du so?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim raFund As Range, loSpalte As Long, loLetzte As Long
Dim loLetzteSpalte As Long, i As Long
Select Case Target.Column
Case 1
With Worksheets("Liste")
.Columns.Hidden = False
If .AutoFilterMode Then .ShowAllData
loLetzteSpalte = .Cells(2, .Columns.Count).End(xlToLeft).Column
Set raFund = .Rows(4).Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
Cancel = True
loSpalte = raFund.Column
Else
MsgBox Target.Value & " ist im Blatt Liste nicht vorhanden."
Exit Sub
End If
loLetzte = .Cells(.Rows.Count, loSpalte).End(xlUp).Row
.Range("$D$4:$O$" & loSpalte).AutoFilter Field:=loSpalte - 3, Criteria1:=""
For i = loLetzteSpalte To 5 Step -1
If .Cells(2, i)  Target.Offset(, 1).Value Then
.Columns(i).Hidden = True
End If
Next i
.Activate
End With
Case 2
With Worksheets("Liste")
.Columns.Hidden = False
If .AutoFilterMode Then .ShowAllData
loLetzteSpalte = .Cells(2, .Columns.Count).End(xlToLeft).Column
Set raFund = .Rows(4).Find(what:=Target.Offset(, -1).Value, LookIn:=xlValues,  _
lookat:=xlWhole)
If Not raFund Is Nothing Then
Cancel = True
loSpalte = raFund.Offset(, -1).Column
Else
MsgBox Target.Value & " ist im Blatt Liste nicht vorhanden."
Exit Sub
End If
loLetzte = .Cells(.Rows.Count, loSpalte).End(xlUp).Row
.Range("$D$4:$O$" & loSpalte).AutoFilter Field:=loSpalte - 2, Criteria1:=""
For i = loLetzteSpalte To 5 Step -1
If .Cells(2, i)  Target.Value Then
.Columns(i).Hidden = True
End If
Next i
.Activate
End With
Case Else
End Select
Set raFund = Nothing
End Sub

Gruß Werner

Selektion nach Doppelklick und Referenz

Forumthread: Selektion nach Doppelklick und Referenz

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Selektion nach Doppelklick und Referenz

Forumthread: Selektion nach Doppelklick und Referenz

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread