Gruppe
Ereignis
Problem
Wie kann ich in einer Zahlenreihe auf Doppelklick Teilergebnisse eintragen bzw. löschen lassen?
ClassModule: Tabelle2
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
Cancel = True
If InStr(Target.Formula, "SUBTOTAL") Then
Rows(Target.Row & ":" & Target.Row + 1).Delete
Else
Rows(Target.Row & ":" & Target.Row + 1).Insert
ActiveCell.Formula = "=SUBTOTAL(9,A1:A" & Target.Row - 3 & ")"
End If
End Sub