Siehe auch: | Löschen leerer Zeilen | 

Autor: Bernd Strohhäcker  --- Aus Excel VBA - Gruppe: Häufige Fragen

Löschen von Zeilen mit bestimmten Wert in Zelle

Autor: Bernd Strohhäcker - Erstellt: --      - Letzte Revision: --
Löschen aller Zeilen, die einen bestimmten Wert enthalten

Via Inputbox wird der Benutzer nach dem zu suchenden Wert gefragt. Alle Zeilen, in denen in mindestens einer Spalte genau dieser Wert steht werden gelöscht. Gesucht wird mit Hilfe der Methode find. 

Option Explicit
Const Titel = "Zeilen Löschen mit Wert"
Const Msg = "Wert, nachdem gesucht und gelöscht werden soll."
	
Sub DelFoundLines()
	Dim i As Long           ' Zeilenzähler
	Dim tofind As Variant   ' Hiernach wird gesucht
	Dim found As Range      ' Eine Fundstelle oder Nothing
	tofind = InputBox(prompt:=Msg, Title:=Titel)
	If tofind = "" Then Exit Sub
	Application.ScreenUpdating = False
	For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row _
		To 1 Step -1
		Set found = Rows(i).Find(what:=tofind, _
		LookIn:=xlValues, lookat:=xlWhole)
			If Not found Is Nothing Then Rows(i).Delete
	Next
	Application.ScreenUpdating = True
End Sub

Weitere Artikel der Gruppe: Häufige Fragen Aus Excel VBA
Nach oben
rechte seite