Office: (Office 2007) Suchergebnis farbig anzeigen

Hallo zusammen, wir benötigen Hilfe.
Im Rahmen einer Maßnahme vom AA haben wir ein Straßenverzeichnis unserer Stadt erstellt und eine Suchfunktion(Makro) eingebaut. Erstes Tabellenblatt alle Straßen und Stadtteile, weiter Tabellenblätter jeweils die einzelnen Stadtteile mit Straßen.
Die Suchfunktion funktioniert auch, nur das einzige was jetzt noch fehlt, ist das „Suchergebnis“ farbig anzeigen zulassen, oder irgendwie anders, so das es auffällt.
Wenn kein Blattschutz drauf ist, ist um das Suchergebnis ein Rahmen, sobald der Blattschutz aktiviert ist, fehlt dieser, daher würden wir gerne das Ergebnis anders hervorheben.
Da unser Dozent und auch Tante Google uns bisher nicht weiterhelfen konnte, wurde uns von nahe gelegt hier im Forum mal nachzufragen ob es Lösungsvorschläge gibt.
Wir sind alles mehr oder weniger Anfänger in diesen Sachen und hoffen dass man uns hier helfen kann.

Hier das Makro.

Option Explicit
Global SSearch As String

Public Sub SearchAllTables()
Dimws As Worksheet
Dim c
DimfirstAddress As String
DimsecAddress
DimGFound As Boolean
DimGWeiter As Boolean

GWeiter = False
GFound = False
anf:
SSearch = InputBox("Suchen nach:", "Search In All Tables", SSearch)

IfSSearch = "" Then
End
End If
weiter:
ForEachws In Worksheets
'ws.Select
Withws.Cells
Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
If Not c IsNothingThen
GFound = True
ws.Select
c.Select
firstAddress = c.Address
IfMsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYesThen
Do
Set c = .FindNext(c)


secAddress = c.Address
Ifc.Address = firstAddressThen
Exit Do
End If
c.Select
IfMsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbNoThen
GWeiter = True
GoTo ende
End If
Loop While Not c IsNothingAndsecAddressfirstAddressAndc.AddressfirstAddress
Else
GWeiter = True
GoTo ende
End If
End If
End With
Next ws

ende:

IfGFound = FalseThen
IfMsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYesThen
GoToanf:
End If
Else
IfGWeiter = FalseThen
IfMsgBox("Sie haben alle Tabellenblätter durchsucht ! Soll die Suche neu gestartet werden ?", vbInformation + vbYesNo) = vbYesThen
GoTo weiter
End If
End If
End If

End Sub

:)

 

Hi,

mal einfach nur geraten, da ich deine Mappe nicht kenne: setze den Blattschutz so, dass auch geschützte Zellen ausgewählt werden können - dann sollte man auch den "Rahmen" sehen können.

 

Moin!
Da es eine Maßnahme des AA betrifft, sehe ich das mom. etwas lockerer.
Aus welchem Jahrhundert stammt euer Dozent?
Ich hätte noch ein paar Termine frei *schmunzel*
(Bei evtl. AG's wird dies eher als Grusel-Code angesehen werden)

Aber egal:
1. Blattschutz muss natürlich aufgehoben und wieder gesetzt werden.
Es sei denn, man nutzt im Workbook_Open den UserInterfaceOnly-Parameter der Protect-Methode des Worksheets.
2. Dim c ist geil, Dim c As Range wäre besser, weil
man dann wüsste, welche Eigenschaft man dem Range-Object zuweisen könnte (z.B. die .Interior.Color-Eigenschaft).

Two Cents
Ralf