Ich habe hier einen Code über einen Command Button Steuerelemente der mir mit einem "Suchen" die Zeile in der, der gesuchte Text steht markiert (mit dem Cursor). Mit weiter/suchen wird solange die Tabelle durchsucht bis der Suchbegriff nicht ein weiteres mal vorhanden ist.
Frage: Gibt es die Möglichkeit die Zeile in der, der Cursor springt mit einer Hintergrundfarbe zb: Rot zu hinterlegen. Müsste dann auch immer in der Zeile sein wo beim weitersuchen der Cursor in einer anderen Zeile das Suchergebnis ist. Hintergrundfarbe nur dort wo der Cursor nach dem Suchergebnis steht.
Wäre SUPER wenn es dafür eine Lösung gäbe und mir jemand den Code ergänzen könnte.
Ich DANKE schon vorab für eine ev. Lösung.
Tabelle1
*********
Private Sub CommandButton1_Click()
Call SearchAllTables
End Sub
Modul1
********
Option Explicit
Global SSearch As String
Public Sub SearchAllTables()
Dim ws As Worksheet
Dim c
Dim firstAddress As String
Dim secAddress
Dim GFound As Boolean
Dim GWeiter As Boolean
GWeiter = False
GFound = False
anf:
SSearch = InputBox("Suchen nach:", "Search In All Tables", SSearch)
If SSearch = "" Then
End
End If
weiter:
For Each ws In Worksheets
'ws.Select
With ws.Cells
Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
If Not c Is Nothing Then
GFound = True
ws.Select
c.Select
firstAddress = c.Address
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYes Then
Do
Set c = .FindNext(c)
secAddress = c.Address
If c.Address = firstAddress Then
Exit Do
End If
c.Select
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbNo Then
GWeiter = True
GoTo ende
End If
Loop While Not c Is Nothing And secAddress <> firstAddress And c.Address <> firstAddress
Else
GWeiter = True
GoTo ende
End If
End If
End With
Next ws
ende:
If GFound = False Then
If MsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYes Then
GoTo anf:
End If
Else
If GWeiter = False Then
If MsgBox("Sie haben alle Tabellenblätter durchsucht ! Soll die Suche neu gestartet werden ?", vbInformation + vbYesNo) = vbYes Then
GoTo weiter
End If
End If
End If
End Sub
|