Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_SheetChange und Zeilen löschen

Forumthread: Workbook_SheetChange und Zeilen löschen

Workbook_SheetChange und Zeilen löschen
28.02.2019 16:20:39
Werner
Hallo Forum,
ich habe da eine Frage zu Workbook_SheetChange: wie kann ich erkennen, dass Zeilen gelöscht wurden?
Gruß
Werner
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Workbook_SheetChange und Zeilen löschen
28.02.2019 16:24:39
Giorgi
Moin,
Würde dir die Forumssuche mal empfehlen.
AW: Workbook_SheetChange und Zeilen löschen
28.02.2019 17:45:35
Werner
Hallo Giorgi,
auf Deinen Kommentar hätte ich gerne verzichten können. Natürlich habe ich zuvor sowohl im Herber-Forum als auch im Internet nach einer Lösung gesucht. Hätte ich dort eine Antwort gefunden, hätte ich meine Frage nicht im Forum gestellt.
Anzeige
AW: Workbook_SheetChange und Zeilen löschen
28.02.2019 16:25:24
Mullit
Hallo,
wie jetzt?...ich glaub Du mußt ein bißchen deutlicher werden...;-)
Gruß, Mullit
AW: Workbook_SheetChange und Zeilen löschen
28.02.2019 17:55:29
Werner
Hallo Mullit,
was ist an meiner Fragestellung unverständlich?
Wenn ich nach der Zeile 9 zwei Zeilen einfüge, wird mir als Range-Address $9:$10 zur Verfügung gestellt.
Target.Rows.Count zeigt mir an, dass zwei Zeilen eingefügt wurden.
Wenn ich nun Zeile 9 und 10 lösche, wird mir als Range-Address $9:$10 zur Verfügung gestellt.
Target.Rows.Count zeigt mir an, dass zwei Zeilen gelöscht wurden.
Meine Frage: wie kann ich feststellen, ob Zeilen eingefügt oder ob Zeilen gelöscht wurden. Die Informationen, welche mir bekannt sind, sind in beiden Fällen identisch!

Gruß
Werner
Anzeige
AW: Workbook_SheetChange und Zeilen löschen
28.02.2019 18:00:52
Mullit
Hallo,
für mich jede Menge, aber das spielt doch keine Rolle, Daniel hat Dir doch schon einen Vorschlag angefertigt, mußt halt schonmal gucken...;-)
Gruß, Mullit
AW: Workbook_SheetChange und Zeilen löschen
28.02.2019 17:12:16
Daniel
Hi
nur mit einem Workaround:
Zu Anfang musst du auf dem jeweiligen Blatt einen Zellbereich mit bestimmter Größe einem Namen zuweisen.
die Anzahl der Zeilen des Bereichs merkts du dir in einer Variablen
im Change-Event vergleichst du dann die aktuelle Zeilenanzahl des Namens mit der in der Variablen gemerkten Anzahl, ist die aktuelle Zeilenzahl kleiner, wurden Zeilen gelöscht.
hierzu dann dieser Code ins Modul "DieseArbeitsmappe"
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
gruß Daniel
Anzeige
AW: Workbook_SheetChange und Zeilen löschen
28.02.2019 17:59:37
Werner
Hallo Daniel,
Danke für Deine Antwort. Ich werde dies demnächst probieren und gehe davon aus, dass das so funktioniert. Der Vorschlag erscheint mir logisch.
Danke und Gruß
Werner
Workbook_SheetChange und Autofilter
02.03.2019 10:48:01
Werner
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
Anzeige

Forumthreads zu verwandten Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Anzeige
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Makro läuft nicht. Zeile löschen wenn...
Christoph

Hallo,
ich habe eine große Tabelle und möchte die Zeilen löschen, die eine "1" in Spalte O:O haben.
Ich habe auch hier und in anderen Foren eine Reihe Makros gefunden. Unter anderem dieses hier:
Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12...
01.07.2009 13:38:55
Thread-ID: 1085695
10 Beiträge
Anzeige
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige