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

303 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch

mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin

07.08.2008 16:23:47

Thread-ID: 1000004

3 Beiträge

Arbeitsblätter zählen und Ergebnis verarbeiten

Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...

07.08.2008 19:11:30

Thread-ID: 1000078

8 Beiträge

Frage - Spalten einfügen & Spalten untereinander z

André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...

08.08.2008 16:00:00

Thread-ID: 1000340

3 Beiträge

Zellen mit Werten aus darüberliegender Zelle fülle

Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....

11.08.2008 08:59:25

Thread-ID: 1000713

4 Beiträge

Häufigkeitslücken

Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...

11.08.2008 10:29:00

Thread-ID: 1000742

2 Beiträge

Zellen formatieren mit vorangehenden "Nullen"

Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?

11.08.2008 10:37:00

Thread-ID: 1000746

8 Beiträge

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

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread