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

Zu löschende Zeilen variabel definieren

Forumthread: Zu löschende Zeilen variabel definieren

Zu löschende Zeilen variabel definieren
11.11.2022 15:05:10
rr
Hallo,
ich möchte in einer Arbeitsmappe in zwei sheets die gleichen zusammenhängenden Zeilen löschen. Welche Zeilen das sind, definiert sich nach Kriterien auf dem 1. Sheet. Die erste gelöschte Zeile ist variabel, die letzte gelöschte Zeile ist immer Zeile 200. Als erste zu löschende Zeile soll immer die gewählt werden, die von oben her die erste ist, in der Spalte A leer ist (in Sheet1).
Bsp: in Sheet 1 sind in Spalte A die ersten 5 Zeilen gefüllt, dann sind 7 Zeilen Leer, dann sind wieder etliche Zeilen gefüllt. --> Die zu löschenden Zeilen sind Zeilen 6 - 200. Hier der Link zu Datei: https://www.herber.de/bbs/user/156146.xlsx
Hier mein Code:

Sub Zeilenlöschen()
Dim Startzeile as Range
[A:A].SpecialCells(xlBlanks).Cells(1).Select
Startzeile = ActiveCell.Row
ActiveSheet.Rows("Startzeile:200").Delete
Sheets("Tabelle2").Rows("Startzeile:200").Delete
Fehlermeldung in der Zeile "ActiveSheet.Rows("Startzeile:200").Delete": Objektvariable oder With-Blockveriable nicht festgelegt
Wenn ich statt "Startzeile" die tatsächliche Zeilenzahl eintrage, geht es ohne Probleme. Ich müsste es nur schaffen, Startzeile korrekt zu übergeben. Sieht jemand meinen Fehler?
Vielen Dank!
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zu löschende Zeilen variabel definieren
11.11.2022 15:10:41
peterk
Hallo

ActiveSheet.Rows(Startzeile & ":200").Delete
Sheets("Tabelle2").Rows(Startzeile & ":200").Delete
Peter
AW: Zu löschende Zeilen variabel definieren
11.11.2022 15:20:43
rr
Danke, Peter! Jetzt klappt's. Allerdings musste ich noch "Dim Startzeile as Range" löschen, Weil ich sonst wieder eine Fehlermeldung bekommen habe. Ob ich das wohl ganz ohne Dim... so stehen lassen kann?
Anzeige
AW: Zu löschende Zeilen variabel definieren
11.11.2022 15:52:31
Daniel
Hi
naja, du befüllst Startzeile ja nur mit einem Zahlenwert, also ist LONG hier der richtige Datentyp für Startzeile (Long, da Ganzzahl)
Gruß Daniel
AW: Zu löschende Zeilen variabel definieren
11.11.2022 19:50:23
GerdL
Hallo rr

Sub Unit()
Dim Rng As Range
On Error Resume Next
Set Rng = ActiveSheet.Rows(ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks).Row & ":" & 200)
Worksheets("Tabelle2").Range(Rng.Address).Delete
Rng.Delete
On Error GoTo 0
Set Rng = Nothing
End Sub
Gruß Gerd
Anzeige
;

Forumthreads zu verwandten Themen

Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
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
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
Doppelte Zeilen Löschen Kriterium in Spalte B
Christian

Hallo,
habe noch ein (hoffentlich kleines) Problem kurz vor dem wochenende, folgendes Mokro löscht doppelte Zeilen, dabei steht das kriterium in der ersten Spalte (A), also wenn in Spalte A zweimal der selbe eintrag steht, wird eine Zeile gelöscht:
Dim zz As Long, rngLi As Range
For...
24.07.2009 16:28:10
Thread-ID: 1091137
4 Beiträge
Leerzeilen löschen
Frank

Hallo zusammen,
ich habe eine Exceltabelle mit Datensätzen (Spalten A und B) in der ich Leerzeilen (die in Spalte A vorkommen) KOMPLETT löschen möchte, aber nur wenn in Spalte B nicht auch noch Datensätze stehen.
Kann mir da jm. bitte weiterhelfen?
Vielen Dank!
Gruß
Frank
06.08.2009 09:29:15
Thread-ID: 1093917
3 Beiträge
Makro gezielte Zeilen löschen / kopieren
walter

Hallo und guten Abend,
bzgl. einer Optimierungsgeschichte bräuchte ich bitte mal wieder Hilfe:
Datentabelle mit variabler Länge
a) unvollständige Sätze kopieren und in neues Blatt einkopieren, dann diese unvollständigen Sätze löschen (würde ich evtl. mit viel Schweiß selbst noch geb...
23.08.2009 00:48:36
Thread-ID: 1097980
8 Beiträge
Leerzeilen löschen
Lemmi

Hallo und guten morgen zusammen,
ich führe regelmäßig einen Datenbank import aus.
Die Datenzeilen sind hier aus verschiedenen Gründen nur lückenhaft gelistet.
z. B
Zeile 5 -10 hat Daten
Zeile 11-20 hat keine Daten
Zeile 21-30 hat Daten
Zeile 31 -35 hat keine Daten
13.09.2009 08:49:27
Thread-ID: 1102342
5 Beiträge
Leerzeilen löschen?
Frank

Einen wunderschönen Guten Morgen!
Mein Problem: In einem Arbeitsblatt - Namens "Schaltflächen" - befinden sich diverse Buttons. Mittels einem Button soll nun erreicht werden, dass alle Zeilen in Blatt "1 GK" gelöscht werden, wenn in Zellen A3:A300 keine Werte stehen! Ich kann in das Blatt w...
22.09.2009 06:59:34
Thread-ID: 1104553
6 Beiträge
Anzeige
Wirklich leere Zeilen löschen
Markus

Hallo,
verschiedene Makro's die ich im Archiv gefunden haben,
lösen nicht mein Problem.
Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechende...
30.09.2009 14:36:43
Thread-ID: 1106327
4 Beiträge
Leerzeilen löschen
Frank

Einen wunderschönen Tag Zusammen ( trotz Dauerregens)!!!
Folgenden Code benutze ich um Leerzeilen zu löschen!
Dim i As Integer
Worksheets(1).Activate
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
If Cells(i, "C").Value = 0 Or _
15.10.2009 11:16:40
Thread-ID: 1109789
3 Beiträge
Zellen verschieben/Zeilen löschen VBA
Thomas

Liebes Forum,
ich habe folgendes Problem
Ich habe eine Excel Datei mit den beiden Spalten Name und Wahlpflichtfach und möchte die Fächerkombinationen auszählen lassen.
Nun ist mir die Tabelle aber leider so gegeben worden, dass diesselbe Person immer doppelt aufgeführt ist. Einmal...
07.11.2009 14:43:44
Thread-ID: 1115212
5 Beiträge
suchen, Treffer-Zeilen löschen
David

Hallo zusammen,
ich habe eine Export-Datei, in der bei 10.000 Gesamtzeilen etwa 2/3 nur aus kaskadierten Ergebniszeilen besteht. Eine Gliederung oder ähnliches ist nicht vorhanden, die Zeilen sind nur am Text "Ergebnis" zu identifizieren.
Da ich diese in der weiteren Verarbeitung nicht...
16.11.2009 17:09:14
Thread-ID: 1117704
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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