Bei Doppelklick Daten filtern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread