Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon hanskalk vom 05.10.2021, 07:45 Options
Excel Zeile per VBA löschen bringt nicht den gewünschten Effekt
Hallo,
ich habe ein Problem mit einem VBA Modul.
Ich habe eine Excel-Datei in der steht html-Quelltext.
Ich möchte nun alle Zeilen löschen in denen NICHT der Textteil '<option value = ' vorkommt.
Mein Script
Sub zeilen_loeschen()
Range("A1:A1400").Select
For Each cell In Selection
If Not cell.Value Like "*<option value = *" Then cell.EntireRow.Delete
Next
End Sub
macht dies, allerdings muss ich es 10x hintereinander ausführen, damit wirklich nur noch die gewünschten Zeilen stehen bleiben. Weiß jemand wieso das so ist? Vielen Dank schon vorab!
ich habe ein Problem mit einem VBA Modul.
Ich habe eine Excel-Datei in der steht html-Quelltext.
Ich möchte nun alle Zeilen löschen in denen NICHT der Textteil '<option value = ' vorkommt.
Mein Script
Sub zeilen_loeschen()
Range("A1:A1400").Select
For Each cell In Selection
If Not cell.Value Like "*<option value = *" Then cell.EntireRow.Delete
Next
End Sub
macht dies, allerdings muss ich es 10x hintereinander ausführen, damit wirklich nur noch die gewünschten Zeilen stehen bleiben. Weiß jemand wieso das so ist? Vielen Dank schon vorab!
Antwort 1 von coros vom 05.10.2021, 08:41 Options
Hallo Hans,
das liegt meines Erachtens nach an der Art der Schleife, die Du verwendest, da durch das Lsöchen immer iene Zeile übersprungen wird. Mach das mal mit einer For-/Next-Schleife und gehe von 400 immer einen Schritt rückwärts. Das Makro dazu müsste dann wie folgt aussehen.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
MfG,
Oliver
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
das liegt meines Erachtens nach an der Art der Schleife, die Du verwendest, da durch das Lsöchen immer iene Zeile übersprungen wird. Mach das mal mit einer For-/Next-Schleife und gehe von 400 immer einen Schritt rückwärts. Das Makro dazu müsste dann wie folgt aussehen.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub zeilen_loeschen()
Dim intRow As Integer
Application.ScreenUpdating = False
For intRow = 400 To 1 Step -1
If Not Cells(intRow, 1).Value Like "*<option value = *" Then Rows(intRow).EntireRow.Delete
Next
End SubMfG,
Oliver
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
Ähnliche Themen
VBA - Zeile ? bis letzte Zeile markieren ...
Tomschi 03.04.2008 - 121 Hits - 7 Antworten
VBA EXCEL Zeile löschen
vollmondgierig 27.10.2008 - 57 Hits - 10 Antworten
Excel VBA -> Problem mit Zeile kopieren trotz Suche im Forum
jackhugo 04.11.2008 - 77 Hits - 4 Antworten
EXCEL VBA: Zeile nach Zellenkriterium kopieren
little-key 08.09.2009 - 465 Hits - 6 Antworten
Excel 2003 - VBA - Userform löschen
pesi 15.09.2009 - 365 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
