was mach ich an untenstehendem Code falsch? Gefunden Werte aus Inputbox sollen gelb markiert werden, alle anderen gelöscht. Durchlauf der Tabelle von A1 bis A xx (variabel).
Wer hat eine Idee?
Gruss
Kai
Sub Loeschen() 'wert aus input abfragen und alle anderen aus spalte a löschen
Dim rngFind As Range
Dim strNumber As String
Dim introw As Integer
strNumber = InputBox("Welche WKN wird gesucht?", _
"Löschen nicht benötigter WKN")
Do
If strNumber = "" Then Exit Sub
Set rngFind = Columns(1).Find(strNumber, lookat:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Rows(introw).Delete
Else
Rows(rngFind.Row).Interior.ColorIndex = 6
introw = introw + 1
End If
Loop
End Sub