AW: Nicht über die Excel-eigene Suche...
14.09.2017 09:32:45
UweD
Hallo
Versuch mal das.
für das Rücksetzen:
- Rechtsclick auf den Tabellenblattreiter des Blattes
- Code anzeigen
- das hier dort einfügen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next ' Fehler beim ersten mal
Range(KommeVon).Interior.Color = xlNone
On Error GoTo 0
KommeVon = Target.Address
End Sub
in ein normales Modul das eigendliche Suchmakro
Sub FFind()
'Tastenbelegung Strg + Umschalten + F
On Error GoTo Fehler
Dim strWas As String, firstAddress, C As Range, Weiter
strWas = InputBox("Suchen nach", "Spezialsuche", "dd")
If strWas = "" Then Exit Sub
With ActiveSheet.UsedRange
Set C = .Find(strWas, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
C.Interior.Color = 5296274 'grün
Weiter = MsgBox("weiter suchen", vbYesNo + vbQuestion)
If Weiter 6 Then Exit Sub '6=Ja
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address firstAddress
End If
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD