In A2:A15 stehen Wörter. Bei Klick in eine Zelle von A2:A15 wird im
Überschriftenbereich B1:O1 nach diesem Wort gesucht und bei Erfolg alle Spalten
bis auf Spalte A und der Fundspalte ausgeblendet.
Gelöst habe ich das mit 2 For-Next Schleifen, die *relativ* langsam sind.
Nur aus Interesse: Gibt es eine elegantere und schnellere Lösung?
Gruß
Klaus
https://www.herber.de/bbs/user/53736.xls
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim SPALTE As Long
Dim SUCHE As String
Dim rng As Range
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
SUCHE = Target.Value
If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
Application.ScreenUpdating = False
For SPALTE = 2 To 256
Worksheets("Stammdaten").Columns(SPALTE).Hidden = True
Next
For Each rng In Range("B1:O1").Cells
If rng.Value = SUCHE Then
rng.EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True
End If
End Sub