Ich habe da was gefunden, womit ich es auf die Spalte eingrenzen kann. Mit den Zeilen klappt es nur nicht.
Danke vorab für eure Hilfe
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 2
ActiveCell.Rows.Hidden = True
End Select
End Sub