Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Teilergebnisse in Zahlenreihe eintragen und löschen

Gruppe

BeforeDoubleClick

Problem

Wie kann ich in einer Zahlenreihe auf Doppelklick Teilergebnisse eintragen bzw. löschen lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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