Bei Doppelklick Daten filtern

Heinz · 2022-05-10T10:42:03+00:00

Guten Tag im Excel Forum, Ich würde gerne bei Doppelklick in einer Spalte zB. D4 das mir D3 und D4:D8 und A4:B8 eingeblendet bleiben, alles andere ausgeblendet wird. Zeile 3 ist prakitsch die Überschriftspalte. Ich habe zum bessern Verständnis eine Beispiel Datei hochgeladen, im Sheets "Mit Filter" sieht man das fertige Produkt. Könnte mir dazu bitte jemand weiterhelfen? Danke SG, Heinz https://www.herber.de/bbs/user/152975.xlsm

Hallo Heinz,
so wird das nicht klappen, weil du in Zeile 3 nur Spalte D sichtbar haben willst, alles andere aber nicht...
Du könntest z. B. Zeile 1 und 2 ausblenden, sowie Zeile 9 bis 1048576 (letzte).
Zusätzlich Spalte C und Spalten E bis XFD (letzte).
Wäre das ok?
Code könnte z. B. dafür so aussehen:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D4")) Is Nothing Then
Union(Columns("C"), Columns("E:XFD")).EntireColumn.Hidden = True
Union(Rows("1:2"), Rows("9:1048576")).EntireRow.Hidden = True
Else
Union(Columns("C"), Columns("E:XFD")).EntireColumn.Hidden = False
Union(Rows("1:2"), Rows("9:1048576")).EntireRow.Hidden = False
End If
Cancel = True
End Sub

Der Else-Teil ist dafür da, um mit einem Doppelklick in eine andere Zelle wieder alles einzublenden.
Wenn du jeweils in D4 für aus- und einblenden klicken willst, und bei allen anderen Zellen nichts passieren soll, dann so:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$4" Then
Union(Columns("C"), Columns("E:XFD")).EntireColumn.Hidden = Not Union(Columns("C"), Columns("E:XFD")).EntireColumn.Hidden
Union(Rows("1:2"), Rows("9:1048576")).EntireRow.Hidden = Not Union(Rows("1:2"), Rows("9:1048576")).EntireRow.Hidden
End If
Cancel = True
End Sub

Gruß Pierre

Hi Heinz,
jetzt - wo dein Chef über dich nachfragt - wird mir wieder bewusst, dass dein Chef - durch uns - ne Menge Geld spart!
Dein Chef muss nicht einen Programmierer beauftragen
Sorry, ich hab "den Fehler", der ja nach deinen ersten Beschreibungen kein Fehler ist (du wolltest, dass Spalte B sichtbar bleibt), nicht korrigiert - aber ich hab einen Kommentar im Code hinterlassen, so dass du jetzt auch weißt - wo - du den Code korrigieren musst.
Zusätzlich ist mir aufgefallen, dass ab Zeile 2896 bei Doppelklick immer Zeilen gezeigt werden, die eigtl auch ausgeblendet sein müssten.
Da ist der Fehler, dass - wie in deiner zuerst gezeigten Datei - auch in der jetzt gezeigten Datei in Spalte A in der letzten genutzen Zeile ein Eintrag stehen muss.
Denn auf diese letzte Zelle in Spalte A bezieht sich mein ganzer Code.
So, hier deine Datei mit dem Kommentar zurück:
https://www.herber.de/bbs/user/152990.xlsm
Ciao
Thorsten

Forumthread: Bei Doppelklick Daten filtern

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Bei Doppelklick Daten filtern

Forumthread: Bei Doppelklick Daten filtern

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread