Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Meldung nach Einfügen oder Löschen von Zeilen

Gruppe

Calculate

Problem

Nach dem Einfügen oder Löschen von Zeilen oberhalb der jetzigen Zeile 21 soll eine entsprechende Meldung angezeigt werden.

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

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   gintRow = Range("Last").Row
End Sub

ClassModule: Tabelle1

Public gintRow As Integer

Private Sub Worksheet_Calculate()
   If Range("Last").Row < gintRow Then
      MsgBox "Es wurde eine Zeile gelöscht!"
   ElseIf Range("Last").Row > gintRow Then
      MsgBox "Es wurde eine Zeile eingefügt!"
   End If
   gintRow = Range("Last").Row
End Sub