Hallo,
ich habe ein Problem bezüglich eines anderen Forenbeitrags, welchen ich erweitern wollte. Ich möchte mit einem Doppelklick auf eine Zelle die versteckten Zellen darunter auf- und zuklappen. Hierzu habe ich eine Antwort gefunden, wie bei versteckten Zellen auch funktioniert. Nun klappt diese Funktion aber, falls sich keine versteckte Zelle unter der angeklickten Zelle befindet, einfach die nächten 2 Zellen ein. Dies kriege ich nicht gelöst. Hier ist der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Excel.Range If Target.Cells.Count = 1 Then If Left(Target.Value, 2) = "**" Then Set rng = ActiveSheet.Columns(Target.Column).Find(What:="**", _ After:=Target, _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchDirection:=xlNext) If Not rng Is Nothing Then If rng.Row > Target.Row Then With ActiveSheet Cancel = True .Range(.Cells(Target.Row + 1, Target.Column), .Cells(rng.Row - 1, rng.Column)). _ EntireRow.Hidden = Not .Range(.Cells(Target.Row + 1, Target.Column), .Cells(rng.Row - 1, rng. _ Column)).EntireRow.Hidden End With End If End If End If End If Set rng = Nothing End Sub
Vielen Dank für die Hilfe,
Ruben