Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

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

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

Msg mit 2 Ereignissen +Cancel

Ereignisprozedur

Mit Change() o. Calculate() Filtern und Drucken

Makro für ereignisabh. Druck verschiedener Seiten

UF Activate / Initialize Ereignis

Namen definiert- in Ereignis verwenden?

Zeilen aus- einblenden als Ereignis?

Makro mit calculate starten

Welches Ereignis ist das richtige ??

Ereignis Arbeitsblatt sperren abfangen

Ereignisprozedur f. Multipage-Reiter

Frage zum Change ereignis

Change-Ereignis in Combobox unterdrücken

Combobox Ereignis

Userform, Ereignis deklarieren im Klassenmodul

Welches Diagramm-Ereignis?

Bestimmtes Ereignis in Spalte zählen

Command Button Ereignis

Ereignis von Laufzeit-Checkbox

change-ereignis bei dynamischen Controls / Teil 2

Change Ereignis verhindern

change-ereignis bei dynamisch erstellten Controls

Fehler bei "Calculate"

Schaltfläche - Ereignis erst nach Bestätigung ausl

Objekt_Error - Ereignis in UserForm

change ereigniss auf userform.

Calculate bei Fensterwechsel

Click-Ereignis für Checlbox nicht ausführen?

Speichern einer Kopie durch Ereigniss Workbook_bef

Reagieren auf Tastaturereignisse

Ausnahmen für Exit-Ereignis

Exit-Ereignis SetFocus

select Ereigniss UF Show

Ereignis zeitweise mit Fehler

Selectereigniss in Spalte

doppeltes Klick-Ereignis

Doppelklick-Ereignis

VBA Ereignis: Änderung der Hintergrundfarbe

Ereigniscode aus zwei Teilen fnk. nicht

Exit Ereignis einer Textbox im Frame

Change-Ereignis bei Auswahllisten

Worksheet_Change Ereignis erweitern

Exit Ereignis springt nicht an

Ereignis "BeforeSave" - ".Find" geht nic

change ereigniss nicht ausführen Userform

Rekursiven Aufruf von Ereignissen verhindern

Makro läuft nicht, falsches Ereignis?