Mit dem unten stehenden Code kann ich mit einem CB eine ausgeblendete Zeile einblenden.
Wie müsste der Code lauten, wenn ich per Doppelklick auf A10 bis A20 die darunter liegende Zeile einblenden kann.
Für eine Antwort bin ich Dankbar.
mfg
Ernst Dunkel
Private Sub CommandButton2_Click() 'Zeilen einblenden
Dim start As Long
Sheets("Tabelle1").Select
Range("A20").Select
Selection.End(xlUp).Select
start = ActiveCell.Row
Rows(start + 1).Hidden = False
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub