Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Zeilen löschen

bestimmte Zeilen löschen
25.04.2022 06:50:28
Christian
Hallo,
ich bitte um eure Hilfe
mal eine blöde Frage, wie kann ich am einfachsten und täglich wiederholbar die folgenden Zeilen löschen:
1. alle Zeilen in denen Spalte A leer ist.
2. alle Zeilen, deren Text in Spalte A mindestens einen Kleinbuchstaben enthält
3. Zeile 163
Hier das Beispiel. Ich habe in Spalte B ein X in alle Zeilen geschrieben, die gelöscht werden sollen. Es handelt sich jedes mal, wo ich die Zeilen löschen möchte um dieselben Zeilen.
https://www.herber.de/bbs/user/152644.xlsx
Gibt es da eine Möglichkeit?
Danke
Christian

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zeilen löschen
25.04.2022 07:10:10
GerdL
Hallo Christian,
teste mal.

Sub Unit()
Dim x As Long, C As Range
Set C = Range("A163")
For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(x, 1)  UCase(Cells(x, 1)) Or Cells(x, 1) = "" Then
Set C = Union(C, Cells(x, 1))
End If
Next
C.EntireRow.delect
End Sub
Gruß Gerd
AW: korrigiere
25.04.2022 07:17:18
GerdL
C.EntireRow.Delete
AW: korrigiere
25.04.2022 07:31:04
Christian
Hallo Gerd,
erstmal vielen Dank.
leider wird eine Zeile zu wenig gelöscht. Wenn jetzt die Zeile 1 auch noch gelöscht würde wäre alles super.
Schau doch bitte nochmal
Gruß
Christian
AW: korrigiere
25.04.2022 07:33:36
GerdL
Hallo Christian,
For x = 1 to ......
Gruß Gerd
Anzeige
AW: korrigiere
25.04.2022 08:06:08
Christian
oops, da hätte ich selbst drauf kommen müssen, danke
AW: korrigiere
25.04.2022 07:34:35
Oberschlumpf
ähhh?
lass die For-Zeile doch bei 1 und nich bei 2 beginnen - DAS bekommst auch DU hin!
AW: korrigiere
25.04.2022 08:06:59
Christian
Hallo Thorsten,
ich gebe ja zu da war ich blind. DAs hätte ich selbst hinbekommen müssen, ja.
Gruß
Christian
AW: korrigiere
25.04.2022 09:59:42
Herbert_Grom
Hallo Gerd,
dein Code ist echt genial! Zuerst alle betreffenden Zeilen-Nummern zu sammeln und diese dann in einem Rutsch zu löschen ist genial! Spitze! Ich denke da meist zu umständlich.
Servus
dem schließe ich mich an! owT
25.04.2022 10:01:10
Oberschlumpf
ich würde gerne mal...
25.04.2022 10:46:10
Christian
versuchen, als Laie, diesen genialen Code nachzuvollziehen,
bitte sagt mir wenn ich irgendwo daneben liege:
Varablen definieren:
Dim x As Long, C As Range
Zeile 163 als zu löschende Zeile festlegen
Set C = Range("A163")
Zellbereich festlegen
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Prüfung auf Leer und Kleinbuchstaben
If Cells(x, 1) UCase(Cells(x, 1)) Or Cells(x, 1) = "" Then
alles zu löschenden Zeilen in Variable C schreiben
Set C = Union(C, Cells(x, 1))
Ende der For Schleife
End If
danach
Next
alle Zeilen in Variable C löschen
C.EntireRow.delete
Wäre es nur so einfach, auch die Idee zu haben, wie man das Problem lösen kann, wie es (aus meiner Sicht) ist das Makro nachzuvollziehen.
Gruß
Christian
Anzeige
AW: ich würde gerne mal...
25.04.2022 11:08:04
GerdL
Moin Christian!
Mit Set C=Range("A163") und der Erweiterung in der Schleife werden (nur) Zellen aus Spalte A der Rangevariablen zugewiesen.
Die Erweiterung auf ganze Zeilen erfolgt nach der Schleife mit C.EntireRow
Aber das hast du ja richtig erkannt.
Gruß Gerd
AW: ich würde gerne mal...
25.04.2022 12:01:58
Christian
Hallo Gerd,
denke jetzt verstehe ich es komplett. Danke für die Erklärung
Christian
AW: bestimmte Zeilen löschen
25.04.2022 08:05:06
Christian
Hallo Thorsten,
sieht soweit gut aus, danke
Christian
Anzeige

307 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
5
7
2
3
7
4
3
7
9
4
3
6
10
8
4
7
4
8
15
9
11
3
8