suchen und Zelle markieren
28.05.2020 11:05:50
Maik
ich habe hier aus dem Forum ein Makro gefunden was mir schon sehr hilft.
Ich suche also in Spalte B einen Wert und in spalte A wird dann die Zelle rot markiert.
Funktioniert auch soweit super. Nun habe ich aber mehrere gleiche Einträge und ich möchte das alle Zellen von A makiert werden in den der Wert aus B gefunden wurde. Also wie eine schleife. Suche markiere bis nichts mehr gefunden wird.
Wenn das geht würde ich gerne das bei jeder Suchanfrage die Zellen A6-A1000 wieder weiß gemacht werden.
Naja und wenn es geht sollte die Markierung in einem mittel hellen lila sein.
Sub Finden()
Dim strSUCH As Variant
Dim rngSUCH As Range
Dim lngFind As Long
strSUCH = Application.InputBox("Bitte Eingabe tätigen:")
Set rngSUCH = ActiveSheet.Range("B3:B1000").Find(What:=strSUCH, _
Lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngSUCH Is Nothing Then
lngFind = rngSUCH.Row
Cells(lngFind, 1).Interior.ColorIndex = 3
Cells(lngFind, 1).Select
Else
MsgBox "Der gesuchte Wert " & strSUCH & " wurde nicht gefunden.", _
64, "Nicht gefunden."
End If
Set rngSUCH = Nothing
End Sub