Workbook_SheetChange und Zeilen löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public AnzahlZeilenAlt As Long Const TestBereich As String = "1:100000" Private Sub Workbook_Open() ActiveSheet.Range(TestBereich).Name = "Test" AnzahlZeilenAlt = Range("Test").Rows.Count End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Sh.Range(TestBereich).Name = "Test" AnzahlZeilenAlt = Range("Test").Rows.Count End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) With Range("Test").Rows If .Count

Hallo Daniel,
ich muß noch einmal nachhaken, weil ich beim Umsetzen Deines Vorschlags auf ein Problem gestoßen bin. Ich habe das Problem in einer Test-Mappe nachgebaut, welche ich hochgeladen habe.
https://www.herber.de/bbs/user/128039.xlsm
Hier meine Beschreibung: Weil ich in Bereichen über den Daten-Zeilen eine andere Spaltenbreite benötige, habe ich zwei Spalten miteinander verbunden. In diesen verbundenen Spalten steht mein erster Begriff. In der nächsten Spalte steht eine laufende Nummer. Danach folgt eine weitere Spalte (nur für den Test eingebaut), in welchem der Begriff aus der verbundenen Spalte wiederholt wird. Dann folgt noch eine Spalte mit der Länge des Begriffs.
Meine Tabelle hat eine Workbook_SheetChange-Routine, welche in meiner Test-Version lediglich Debug.Print-Ausdrucke fertigt. Außerdem wird in Spalte "F" der Zeile, in welcher eine Änderung vorgenommen wurde, der mit "ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row" ermittelte MaxRows-Wert eingesetzt.
Schritt 1: Wenn ich - noch ohne Filter - in Spalte "F" irgendwo ein Zeichen eingebe, wird mir als "MaxRows" der Wert "18" angezeigt, was auch der Realität entspricht.

Schritt 2: Jetzt setze in in Spalte "E" den Filter für die Länge "5" und gebe in Zeile 17 in Spalte F ein Zeichen ein. Jetzt wird mir als MaxRows nur noch "17" angezeigt, was der letzten angezeigten Zeile durch die Filterung entspricht.
Schritt 3: Jetzt setze ich für Spalte A-B den Filter für "Scheren" und "Bohrer" und in Spalte "E für die Längen 6 und 7. Jetzt in Zeile 14 und Spalte "F" ein Zeichen eingeben, wird mir als MaxRows nur noch "15" angezeigt, was der letzten angezeigten Zeile durch die Filterung entspricht.
Schritt 4: Im nächsten Schritt lösche ich den Filter für die Spalten A-B, der Filter in Spalte "E" mit 6 und 7 bleibt gestehen, und gebe in Spalte "F" der Zeile 10 ein Zeichen ein. Wieder wird mir nur noch MaxRows mit "15" angezeigt, obwohl jetzt nur noch der Filter in Spalte "E" aktiv ist.
Schritt 5: Im nächsten Test entferne ich den Autofilter komplett und setze ihn jetzt nur noch für die Spalten C bis E. In Spalte "E" wähle ich wieder die "5" aus. In Zeile 8 Spalte "F" gebe ich ein Zeichen ein, und erhalte als MaxRows den Wert "17" angezeigt.
Schritt 6: Im letzten Test entferne ich erneut den Autofilter komplett und setze ihn jetzt nur noch für die Spalte D. In Zeile 8 Spalte "F" gebe ich ein Zeichen ein, und erhalte als MaxRows den Wert "17" angezeigt. Und, oh Wunder(?), jetzt erhalte ich wieder als MaxRows den Wert "18" angezeigt.
Frage 1: muß ich das verstehen?
Frage 2: wie kann ich verbindlich die Anzahl der belegten Zeilen feststellen; auf meine bisherige Technik ist - anscheinend - kein Verlass!
Gruß
Werner

Beliebteste Forumthreads (12 Monate)

Workbook_SheetChange und Zeilen löschen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Workbook_SheetChange und Zeilen löschen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread