VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Meldung nach Einfügen oder Löschen von Zeilen

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

    


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