Variablen wert suchen Zeilen löschen
10.02.2014 10:53:50
Malte
so langsam verzweifel ich mit meinen relativ geringern VBA Kenntnissen. Gesucht habe ich auch schon, allerdings konnte ich hiermit mein Problem nicht lösen.
Folgendes:
Ich würde gerne aus einer Tabelle verschiedene Kriterien auslesen (s. Bspl-Datei https://www.herber.de/bbs/user/89206.xlsx) nach diesen Kriterien soll in einer anderen Tabelle gesucht werden und falls gefunden, soll die Zeile gelöscht werden. Für das löschen hab ich das unten stehende, allerdings nimmt es immer nur Bezug auf eine Zelle. Kann Zelleninhalt einen Var. Wert von z.B. A1:B50 annehmen und diese nacheinander Prüfen?
Sub TestZeilen()
Dim i As Long
Dim ZellenInhalt As String
ZellenInhalt = Range("E64").Value
For i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Or _
Cells(i, "E").Value = ZellenInhalt Then Rows(i).Delete
Next i
End Sub
Vielen Dank
Malte S.