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

Zeilen löschen, wenn der Zellinhalt BAK?

Forumthread: Zeilen löschen, wenn der Zellinhalt BAK?

Zeilen löschen, wenn der Zellinhalt BAK?
02.03.2020 22:07:17
Sergej
Hallo Leute,
wie kann ich bitte per VBA (ab Zeile 3 bis letzte benutzte Zeile der Spalte A) ganze Zeile löschen bei den es in Spalte A das Wort BAK in dem Zellinhalt vorkommt?
Beste Grüße,
Sergej
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
z.B. mit Like "*BAK*"
02.03.2020 23:36:23
Matthias
Hallo Sergej
Option Explicit
Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
If Cells(x, 1).Text Like "*BAK*" Then MyCheck = True
If MyCheck Then
Rows(x).Delete
Exit For
End If
Next
End Sub
Gruß Matthias
Anzeige
AW: z.B. mit Like "*BAK*"
03.03.2020 15:36:31
Sergej
Hallo Matthias,
ich habe es getestet. Irgendwie wird nichts gelöscht.
Beste Grüße,
Sergej
AW: z.B. mit Like "*BAK*"
03.03.2020 23:34:06
Matthias
Hallo Sergej,
ich habe es auch getestet. Bei mir wird gelöscht.
Aber evtl. steht ja nicht BAK in der Zelle, sondern bak ?
Dafür könntest Du es dann so lösen:
If UCase(Cells(x, 1).Text) Like "*BAK*" Then ...
Ich habe den Code aber nochmal überarbeitet. Mir gefällt das hier besser:
Option Explicit
Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
MyCheck = False
If UCase(Cells(x, 1).Text) Like "*BAK*" Then MyCheck = True
If MyCheck Then
If MsgBox("Zeile " & x & " wird jetzt gelöscht", vbYesNo) = vbYes Then
Rows(x).Delete
Exit For
End If
End If
Next
End Sub
Gruß Matthias
Anzeige
AW: z.B. mit Like "*BAK*"
06.03.2020 08:49:22
Sergej
Hallo Matthias,
sorry für verspätete Rückmeldung. Ich habe kein Beitrag ohne Rückmeldung. ;-)
Wenn in Zelle nur BAK steht, dann wird diese gelöscht. Soweit in Ordnung.
Wenn aber BAK nur Teil des Zellinhalts Bsp. P:\Daten\Projekte\2208700 KTU\BAK\04\demo.xml ist, dann wird die Zeile nicht gelöscht.
Beide Fälle sollen abgedeckt werden.
Beste Grüße,
Sergej
Anzeige
AW: z.B. mit Like "*BAK*"
06.03.2020 08:57:24
Oberschlumpf
Hi,
eine andere Möglichkeit könnte auch das hier sein: 
If Instr(UCASE(Cells(x, 1).Text), "BAK") > 0 Then MyCheck = True

Hilfts?
Ciao
Thorsten
Lösche die Zeile im Code: Exit For (owT)
06.03.2020 09:01:50
EtoPHG

DAS ist NOCH BESSER! :-)) ...owT
06.03.2020 09:20:38
Oberschlumpf
Anzeige
Zeilen löschen, wenn der Zellinhalt BAK?
06.03.2020 10:04:17
Sergej
Hallo Zusammen,
Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
If InStr(UCase(Cells(x, 1).Text), "BAK") > 0 Then MyCheck = True
If MyCheck Then
Rows(x).Delete
'    Exit For
End If
Next
End Sub
Damit wurden die Zeilen gelöscht, bei den es im Zellinhalt "BAK" vorkommt. Leider wurden auch einige Zeilen gelöscht, bei den im Zellinhalt kein BAK vorkommt. ;-)
Beste Grüße,
Sergej
Anzeige
Statt:' Exit For, schreibe: MyCheck = False (owT)
06.03.2020 10:53:02
EtoPHG

Behauptung bitte nachweisen ...
06.03.2020 10:46:33
Matthias
Hallo
Zitat
Wenn aber BAK nur Teil des Zellinhalts Bsp. P:\Daten\Projekte\2208700 KTU\BAK\04\demo.xml ist, dann wird die Zeile nicht gelöscht.
Beide Fälle sollen abgedeckt werden.
Bitte diese Behauptung nachweisen!

Das gezeigt Bsp: P:\Daten\Projekte\2208700 KTU\BAK\04\demo.xml wird mit meinem Code korrekt gelöscht.
Gruß Matthias
Anzeige
AW: Behauptung bitte nachweisen ...
06.03.2020 13:25:47
Sergej
Hallo Matthias,
jetzt habe ich es nochmals mit deinem Code getestet:
Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
MyCheck = False
If UCase(Cells(x, 1).Text) Like "*BAK*" Then MyCheck = True
If MyCheck Then
If MsgBox("Zeile " & x & " wird jetzt gelöscht", vbYesNo) = vbYes Then
Rows(x).Delete
Exit For
End If
End If
Next
End Sub
Ich muss das Makro mehrfach ausführen, damit alle betreoffenen Zeilen gelöscht werden.
Beste Grüße,
Sergej
Anzeige
AW: Behauptung bitte nachweisen ...
06.03.2020 15:41:07
Oberschlumpf
Hallo,
oder ersetz mal das Exit For mit MyCheck = False, wie es von EtoPHG schon vorgeschlagen wurde.
Vielleicht reicht dann ein Durchgang des Makros.
Ciao
Thorsten
AW: Behauptung bitte nachweisen ...
06.03.2020 16:20:36
Sergej
Hallo Thorsten,
mit MyCheck = False funktioniert es.
Vielen Dank an alle...
Beste Grüße,
Sergej
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
Anzeige
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
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
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
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