Gruppe
Ereignis
Bereich
Calculate
Thema
Meldung nach Einfügen oder Löschen von Zeilen
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