VBA Ab Aktiver Zelle Anzahl der leeren
21.12.2017 23:53:49
Ruben
Ich habe eine Frage zu einer kleinen Funktion in meiner Datenbank.
Ich habe sehr viele Kundeneinträge mit Adressen etc, alle untereinander in einer Tabelle mit einer Zeile pro Kunde. Genauere Kontakte habe ich in versteckte Zellen darunter geschrieben.
Ich möchte nun, wenn ich mit Doppelklick auf einen Kundennamen/in die Zeile des Kunden klicke, dass sich die versteckten Zellen unter diesem öffnen. Es sollen sich alle versteckten Zellen bis zum nächsten Kunden öffnen und wieder schließen mit einem Doppelklick.
Hier ist mein bisheriger Code, um die versteckten Zellen unter meiner aktiven zu öffnen oder zu schließen. Ich möchte jetzt allerdings nicht nur 7 versteckte Zellen für jeden Kunden öffnen, sondern immer von der aktiven Zelle aus alle versteckten Zeilen bis zum nächsten Kunden öffnen.
Hier der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cells(Target.Row, "B") "x" Then Exit Sub
Rows(Target.Row + 1 & ":" & Target.Row + 7).Hidden = Not Rows(Target.Row + 1 & ":" & Target. _
Row + 7).Hidden
Cancel = True
End Sub
Vielen vielen Dank