Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fundspalte sichtbar

Fundspalte sichtbar
10.07.2008 19:39:00
Klaus
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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fundspalte sichtbar
10.07.2008 19:46:00
Hajo_Zi
Hallo Klaus,
die erste Schleife könnte entfallen
Cells.EntireColumn.Hidden = False
und für Teil 2 benutze Find

AW: Fundspalte sichtbar
10.07.2008 20:15:28
Klaus
Hallo Hajo,
jetzt ist es viel schneller, vielen Dank.
Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige