Makro macht nicht das was es soll
25.06.2018 13:45:14
Achim
ich habe ein Makro aus dem Internet schon etwas angepasst. Aber es funktioniert noch nicht ganz so wie ich es brauche. Wer kann mal darüber schauen?
Das Makro soll nach den Wert zB 2(H3) in der Spalte A suchen und markieren. Leider markiert mir das Makro alle Werte in A die irgendwie eine 2 beinhalten. (zB 12,22,usw.)
Anbei das Makro
Sub test()
With Sheets("KontrolleEintJuli1").Range("a2:a1000")
Set c = .Find(Range("H3"))
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub