Gruppe
Ereignis
Problem
Nach dem Einfügen oder Löschen von Zeilen oberhalb der jetzigen Zeile 21 soll eine entsprechende Meldung angezeigt werden.
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