Zeilen löschen überwachen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private lngZeilenAlt As Long Private lngAnzahlZeilen As Long Private Const lngSpalte As Long = 1 'Spalte zur Prüfung der Anzahl Zeilen Private Sub Worksheet_Change(ByVal Target As Range) 'Application.EnableEvents = False lngAnzahlZeilen = Me.Cells(Me.Rows.Count, lngSpalte).End(xlUp).Row If lngAnzahlZeilen lngZeilenAlt Then MsgBox lngAnzahlZeilen - lngZeilenAlt & " Zeile(n) wurde(n) eingefügt" lngZeilenAlt = lngAnzahlZeilen Else MsgBox "Keine Zeile(n) wurde(n) gelöscht oder eingefügt" End If 'Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If lngZeilenAlt = 0 Then lngZeilenAlt = Me.Cells(Me.Rows.Count, 1).End(xlUp).Row If lngAnzahlZeilen = 0 Then lngAnzahlZeilen = Me.Cells(Me.Rows.Count, 1).End(xlUp).Row End Sub

Hallo Tom,
dann kann es Probleme geben weil versehentlich eine Zeile als gelöscht ermittelt werden kann, wenn in der Prüfspalte.
Du könntest aber, falls das keine Probleme verursacht, unterhalb deiner Daten in der Prüf-Spalte in eine Zelle Leerzeichen eingeben oder die Formel ="".
Die nachfolgende Variante ist etwas rechenintensiver. Es es kann nur in wenigen Fällen (Die letzte Datenzeile oder deren Inhalt wird gelöscht und es sind komplett leere Zeilen vor dieser Zeile) passieren, dass gelöschte bzw. mehr als eine gelöschte Zeile angezeigt werden.
Gruß
Franz


Option Explicit
Private lngZeilenAlt As Long
Private lngAnzahlZeilen As Long
Private Const lngSpalte As Long = 1 'Spalte zur Prüfung der Anzahl Zeilen
Private Sub Worksheet_Change(ByVal Target As Range)
'Application.EnableEvents = False
lngAnzahlZeilen = LastRow(Me)
If lngAnzahlZeilen  lngZeilenAlt Then
MsgBox lngAnzahlZeilen - lngZeilenAlt & " Zeile(n) wurde(n) eingefügt"
lngZeilenAlt = lngAnzahlZeilen
Else
MsgBox "Keine Zeile(n) wurde(n) gelöscht oder eingefügt"
End If
'Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If lngZeilenAlt = 0 Then lngZeilenAlt = LastRow(Me)
If lngAnzahlZeilen = 0 Then lngAnzahlZeilen = LastRow(Me)
End Sub
Private Function LastRow(wks As Worksheet) As Long
'Letzte Zeile im Blatt mit Daten ermitteln
Dim Spalte As Long
For Spalte = 1 To wks.UsedRange.Column + wks.UsedRange.Columns.Count - 1
If LastRow

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen löschen überwachen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread