Microsoft Excel

Herbers Excel/VBA-Archiv

Fundspalte sichtbar

Betrifft: Fundspalte sichtbar von: Klaus
Geschrieben am: 10.07.2008 19:39:50

Hallo Forum,

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


  

Betrifft: AW: Fundspalte sichtbar von: Hajo_Zi
Geschrieben am: 10.07.2008 19:46:07

Hallo Klaus,

die erste Schleife könnte entfallen
Cells.EntireColumn.Hidden = False
und für Teil 2 benutze Find

GrußformelHomepage


  

Betrifft: AW: Fundspalte sichtbar von: Klaus
Geschrieben am: 10.07.2008 20:15:28

Hallo Hajo,
jetzt ist es viel schneller, vielen Dank.

Klaus


 

Beiträge aus den Excel-Beispielen zum Thema "Fundspalte sichtbar"