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

Spalten Ein/Ausblenden mit Ereignismakro

Spalten Ein/Ausblenden mit Ereignismakro
09.07.2014 15:15:20
Michael
Guten Tag Zusammen,
folgendes Problem kriege ich einfach nicht hin:
In einer Datenbankliste ist in Spalte B ein Merkmal hinterlegt. Über ein Auswahlfeld (erstellt mit einer Unikatsliste und Datenüberpüfung) möchte ich nun ein Merkmal auswählen und alle Zeilen im Bereich von Zeile 11 bis 200 sollen ausgeblendet werden, die nicht diesem Merkmal im Auswahlfeld entsprechen. Optimal wäre es, wenn ein nochmaliger Klick die anderen Zeilen wieder einblendet.
1) Leider löst die Auswahl über die Datenprüfung kein Ereignis aus!
2) Ich kann alle Zeilennummern, in denen sich das Merkmal befindet, nicht mit VBA ermitteln.
Hier eine kleine Beispieldatei: https://www.herber.de/bbs/user/91441.xlsx
Ist das ganze überhaupt machbar?
Vielen Dank für Eure Unterstützung
Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten Ein/Ausblenden mit Ereignismakro
09.07.2014 15:35:41
Rudi
Hallo,
1) Leider löst die Auswahl über die Datenprüfung kein Ereignis aus!
wer behauptet das?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" Then
Range("A11").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A5:A6"), Unique:=False
End If
End Sub
Um alle anzuzeigen A6 leeren.
Gruß
Rudi

Prima!
11.07.2014 13:25:33
Michael
Hallo Rudi,
vielen Dank!
Klappt Prima
Gruß
Michael
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige