Suchergebniss einfärben

Sub Dialog1()
DialogSheets("Dialog1").Show
End Sub

Sub Suchen_Daten()
Dim text1 As Variant
text1 = DialogSheets("Dialog1").[Bearbeitungsfeld 106].Text
Range("A1").Select
On Error Resume Next
Cells.Find(What:=text1, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

Sub Suchen_Daten_nächste()
On Error Resume Next
Cells.FindNext(After:=ActiveCell).Activate
End Sub