Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit Bedingung löschen

Forumthread: Zeilen mit Bedingung löschen

Zeilen mit Bedingung löschen
19.10.2018 19:42:18
hewi
Liebe Experten,
ich habe diesem Forum schon viele gute Tipps entnommen, aber jetzt komme ich nicht weiter.
Unsere Telefonanlage erzeugt einen täglichen Report als CSV-Datei, die ich per Makro in Excel einlese (alle Felder als Text). Ich möchte nun alle Datensätze mit ungültigen (virtuellen) Rufnummern in Spalte D löschen. Das versuche ich mit: 
Sub ungültige_DN_löschen()
Dim lastrow As Long, i As Long, DN As String
Sheets("Daten").Select
lastrow = Cells(Rows.Count, 4).End(xlUp).Row     'ermittelt die letzte Datenzeile in Spalte D
For i = lastrow To 2 Step -1
DN = Cells(i, 4).Value
Select Case DN
Case Left(DN, 2) = "99"
Rows(i).Delete Shift:=xlUp          'löscht DN, die mit 99 beginnen
Case DN >= "a"
Rows(i).Delete Shift:=xlUp          'löscht DN, die mit Buchstaben beginnen
Case DN = "*#*"
Rows(i).Delete Shift:=xlUp          'löscht DN, die # enthalten
Case DN = "*[*"
Rows(i).Delete Shift:=xlUp          'löscht DN, die [ enthalten
Case DN = "*x*"
Rows(i).Delete Shift:=xlUp          'löscht DN, die x enthalten
End Select
Next i
End Sub

Dieses Makro läuft ohne Fehler durch, allerdings scheint keine der Bedingungen zu greifen - es werden keine Datensätze gelöscht.
Was mache ich falsch?
Viele Grüße
Helmut
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit Bedingung löschen
19.10.2018 20:01:06
Daniel
Hi
Du setzt das Select Case falsch ein.
Probiers mal mit "If Then - ElseIf Then - ... Ende if"
Oder mit "Select Case True" und dann deine Bedigungen.
Des weiteren kann der Vergleich mit "=" keine Jokerzeichen verarbeiten.
Schau dir mal den Like-Operator in der Hilfe an, der wäre dann für dich das Richtige.
Oder prüfe mit Instr ob ein bestimmtes Zeichen im Text vorhanden ist.
Gruß Daniel
Anzeige
AW: Zeilen mit Bedingung löschen
19.10.2018 20:03:51
Uduuh
Hallo,
Select Case True
statt
Select Case DN
und sonst noch 
Sub ungültige_DN_löschen()
Dim lastrow As Long, i As Long, DN As String
Sheets("Daten").Select
lastrow = Cells(Rows.Count, 4).End(xlUp).Row     'ermittelt die letzte Datenzeile in Spalte D
For i = lastrow To 2 Step -1
DN = Cells(i, 4).Value
Select Case True
Case Left(DN, 2) = "99"
Rows(i).Delete Shift:=xlUp          'löscht DN, die mit 99 beginnen
Case Not (IsNumeric(Left(DN, 1)))
Rows(i).Delete Shift:=xlUp          'löscht DN, die mit Buchstaben beginnen
Case DN Like "*#*"
Rows(i).Delete Shift:=xlUp          'löscht DN, die # enthalten
Case DN Like "*[*"
Rows(i).Delete Shift:=xlUp          'löscht DN, die [ enthalten
Case DN Like "*x*"
Rows(i).Delete Shift:=xlUp          'löscht DN, die x enthalten
End Select
Next i
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: Zeilen mit Bedingung löschen
19.10.2018 20:33:46
Daniel
Hi Udo
hast du das getestet?
Den Like-Operator solltest du dir nochmal anschauen.
Meines Wissens nach müsste dein Code alles Löschen, weil im Like das "#" der Joker für eine Ziffer ist und eckige Klammern dafür verwendet werden, um anzuzeigen, dass an der entsprechenden Stelle alle Zeichen erlaubt sind, die zwischen den Klammern stehen.
Gruß Daniel
Anzeige
AW: Zeilen mit Bedingung löschen
21.10.2018 19:49:30
Uduuh
Hallo Daniel,
hab ich vernachlässigt.
Dann doch besser mit InStr testen
Gruß aus’m Pott
Udo

AW: Zeilen mit Bedingung löschen
19.10.2018 20:33:47
Daniel
Hi Udo
hast du das getestet?
Den Like-Operator solltest du dir nochmal anschauen.
Meines Wissens nach müsste dein Code alles Löschen, weil im Like das "#" der Joker für eine Ziffer ist und eckige Klammern dafür verwendet werden, um anzuzeigen, dass an der entsprechenden Stelle alle Zeichen erlaubt sind, die zwischen den Klammern stehen.
Gruß Daniel
Anzeige
AW: Zeilen mit Bedingung löschen
22.10.2018 17:08:22
hewi
Hi Daniel und Udo,
herzlichen Dank für eure Hilfe - et het jefluppt! :-)
(Ich bin leider erst heute zum Testen gekommen)
Der Tipp mit INSTR funktioniert, LIKE "*#*" hat tatsächlich alle Datensätze gelöscht.
Bei 35.000 Datensätzen, von denen ca. 8.000 gelöscht werden, dauert das ganze relativ lange (ca. 15 min). ScreenUpdating habe ich bereits ausgeschaltet. Gibt es vielleicht noch einen Trick um das Ganze zu beschleunigen?
Viele Grüße aus Aachen
Helmut
Anzeige
;

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 08:52:34
Thread-ID: 1029679
8 Beiträge
zellen mit gleicher Farbe leeren
serge

Hallo Leute
Ich suche eine Möglichkeit alle freien Zellen mit gleicher Farbe zu leeren!
Wer kennt einen Code dazu
Danke
Serge
11.12.2008 10:45:00
Thread-ID: 1031974
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Formel aus formatierten Zellen
Alfa

Hallo!
Ich habe eine Frage, ist es möglich mit Formaten Formel aufzubauen?
Beipiel:: Wenn(A1=schwarz; A2+A3) oder irgend so was.
Könnr Ihr mir einen Typ geben?
Grüße, Peter
16.07.2009 19:10:02
Thread-ID: 1089189
4 Beiträge
Zellen mit Wert 0 löschen
Mario

Hallo zusammen,
zellen mit wert = 0 zu löschen sollte eigentlich kein Problem sein, aber ich weiß bei untenstehendem Code nicht, wo ich dies einfügen soll. Wenn ich nach IsEmpty(rngZelle) noch ein Or not IsNull(rngZelle) hinsetze, dann verschiebt mir das Makro auch die leeren Zellen....und...
10.08.2009 10:42:10
Thread-ID: 1094641
4 Beiträge
bestimmte Zeilen mit Makro löschen
Mitbauer

Hallo zusamenn! Ich bin relativ neu in der excel-Welt und daher hört sich meine Frage bestimmt echt lächerlich an:
Ich möchte in einer Exceltabelle mit einem Makro bestimmte Zeilen bzw. Spalten löschen. Das Problem, die unbearbeiteten Tabellen können unterschiedlich lang sein und auch manch...
01.09.2009 13:23:45
Thread-ID: 1099819
9 Beiträge
Zahlen aus Zelle entfernen
Peter

Hallo,
ich muss 2 zellen miteinander vergleichen.
In Spalte AN:AN stehen Werte Bsp 312A706 dazu stehen in Spalte AO:AO 000030-002894-K03-12A-070-600
Jetzt muss geprüft werden ob das A aus AN mit dem A aus AO identisch ist. Wenn ja dann Gutaussage
siehe Bsp-Datei
https://www....
16.09.2009 20:34:31
Thread-ID: 1103353
10 Beiträge
Zeilen mit Leerzelle in Spalte E löschen
jo_cindy

Hi, habe wieder einen kleinen Fehler
Möchte alle Zeilen löschen, wo in Spalte E eine Leerzelle ist. Mein Makro läuft sich tot, wahrscheinlich, weil es sich nicht auf ein Datenende bezieht. Wie muss ich es umbauen, damit die Löschfunktion der Zeilen endet, wenn in Spalte A kein Wert mehr ste...
28.10.2009 13:36:59
Thread-ID: 1112798
4 Beiträge
Formel für Tabellennamen aus Zelle
Juergen

Hallo,
Ich habe da ein kleines Problem, und zwar:
Ich erstelle neue Tabellen über eine Mastertabelle, wobei eine Vorlage kopiert wird.
Dieser Tabellenname steht dann in der Mastertabelle B4 bis up.
Nun möchte ich aber in der Zelle D4 der Mastertabelle ein Wert aus der neuen Tabe...
19.01.2010 20:41:19
Thread-ID: 1131169
4 Beiträge
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 au...
20.01.2010 09:31:34
Thread-ID: 1131220
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige