Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
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
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit bestimmten Kriterien Löschen

Zeilen mit bestimmten Kriterien Löschen
Stefan
Hallo zusammen,
in Spalet B habe ich chaotisch die Bezeichnungen SO1, SO2 und SO3 in mehreren tausend Zeilen stehen.
Ich benötige allerdings nur die Zeilen mit dem Inhalt SO1, die restlichen Zeilen mit SO2 und SO3 in Spalte B müssen komplett gelöscht werden.
Dies könnte ich quasi auch manuell mit einem Filter machen, doch bestimmt gibt es dafür einen Makro/VBA-Text.
Kann mir diesbezüglich jemand weiterhelfen?
Vielen Dank für Eure Unterstützung.
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 09:31:34
Chris
Servus Stefan,
probier mal das:
Sub tt()
Dim lngLetzte As Long
lngLetzte = Cells(65536, 2).End(xlUp).Row
Columns("C:C").Insert Shift:=xlToRight
Range("C1:C" & lngLetzte).FormulaR1C1 = "=IF(RC[-1]=""SO1"",ROW(),FALSE)"
Range("A1:IV" & lngLetzte).Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Range("C1:C" & lngLetzte)
.Formula = .Value
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Columns("C:C").Delete
End Sub
Das Makro in das entsptechende Tabellenmodul.
Gruß
Chris
Anzeige
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 09:49:31
Sven
Hallo Stefan K.,
also wenn es nur ums Reihen löschen geht, würde ich es mal so versuchen:
Sub Bereinigen()
lrow = Cells(Rows.Count, 2).End(xlUp).Row
For a = 1 To lrow
If Not Cells(a, 2).Value = "SO1" Then
If Cells(a, 2).Value = "" Then Exit Sub
Rows(a).Delete
a = a - 1
End If
Next a
End Sub
Gruß, Sven
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 13:45:17
Stefan
hallo sven und chris,
ich würde allerdings gerne im makro-text die SO2 und SO3 zum löschen benennen, weil in eigen tabellen z.b. auch die SO4 belieben muss. bei den aktuellen lössungen wird alles gelöscht, was nicht SO1 ist.
ich würde es lieber umgekehrt machen, ... alles mit angeben, was gelöscht werden muss.
habt ihr da auch eine idee?
vielen dank.
Anzeige
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 14:14:19
Chris
Servus,
dann so:
Sub tt()
Dim lngLetzte As Long
lngLetzte = Cells(65536, 2).End(xlUp).Row
Columns("C:C").Insert Shift:=xlToRight
Range("C1:C" & lngLetzte).FormulaR1C1 = "=IF(OR(RC[-1]=""SO2"",RC[-1]=""SO3""),FALSE,ROW())"
Range("A1:IV" & lngLetzte).Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Range("C1:C" & lngLetzte)
.Formula = .Value
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Columns("C:C").Delete
End Sub
Gruß
Chris
Anzeige
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 18:23:42
Stefan
...super vielen dank, funktioniert.
schönen abend noch.
gruß,
stefan
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 18:26:23
Stefan
...super, funktioniert.
VIELEN DANK.
gruß,
stefan
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 18:25:04
Stefan
...super, funktioniert.
VIELEN DANK.
gruß,
stefan
AW: Zeilen mit bestimmten Kriterien Löschen
20.01.2010 18:25:28
Stefan
...super, funktioniert.
VIELEN DANK.
gruß,
stefan

314 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
4