Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen löschen, wenn Wert in unbestimmer Spalte

Zeilen löschen, wenn Wert in unbestimmer Spalte
03.11.2017 12:12:28
Basti
Hallo VBA'ler,
benötige mal wieder etwas Hilfe mit einem Code.
Ich Importiere eine XML-Datei in meine Arbeitsmappe und möchte, dass alle Zeilen, die nicht meinen "Suchwert" in einer "unbestimmten Spalte" enthalten, gelöscht werden.
Hab im World Wide Web eine Prozedur gefunden (vgl. ZeilenLoeschenInStr), die allen Zeilen löscht, wenn der "Suchwert" in Spalte 178 (Beispiel) nicht enthalten ist.
Da diese Spaltenzahl und auch der Spaltenname von XML-Datei zu XML-Datein varrieren kann, suche ich eine Lösung, die alle Spalten einer Zeile nach dem "Suchwert" überprüft und die Zeile ggf. löscht, wenn nicht vorhanden.
Habt Ihr evtl. eine passende Lösung für mich?
Gruß
Basti
Sub ZeilenLoeschenInStr()
Dim i
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
On Error Resume Next
If InStr(Cells(i, 178), "Suchwert") = 0 Then
Rows(i).Delete
End If
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt o.w.T.
03.11.2017 13:30:18
Werner
Anzeige

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige