VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Teilergebnisse in Zahlenreihe eintragen und löschen

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Teilergebnisse in Zahlenreihe eintragen und löschen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick