Zelle markieren
22.02.2018 11:26:19
Jürgen
nach langem probieren hab ich aufgegeben und hoffe hier auf Hilfe.
Ich würde mich freuen einen Hilfsbereiten Spezialisten zu finden
(wie schon einige male zuvor).
Mein Problem ist folgendes:
Ich habe ein Tabellenblatt das ohne Menueband, Zeilen und Spaltenüberschrift und
Laufleiste daherkommt. Darüber hinaus sind einige Zellen (Spalten) gesperrt.
Somit kann ich eine Suche für den Nutzer in dem Tabellenblatt nur mit einem Makro
anbieten.
Dies ist es!
Public Sub InhalteSuchen()
Dim Suchbegriff As String
Dim Weiter
Suchbegriff = InputBox("Suchbegriff:", "Alternative Suche")
On Error GoTo Fehler
Cells.Find(What:=Suchbegriff, LookIn:=xlValues, lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
If Weiter = vbYes Then
Cells.FindNext(After:=ActiveCell).Activate
GoTo nochmal
End If
Exit Sub
Fehler:
Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:")
End Sub
Nun ist jedoch das Tabellenblatt mit sehr vielen Daten in ca. 15 Spalten vollgestopft.
und das Suchergebnis kann unter Umständen nur in der nächsten freien Zelle der entsprechenden Spalte angezeigt werden (durch aktivieren der Zelle).
Mein Wunsch wäre nun, dass die aktivierte Zelle in irgendeiner Form deutlich markiert wird.
Z.B. farblich und nach verlassen der aktivierten Zelle diese Markierung wieder aufgehoben wird.
Ich hab schon einige Versuche mit "Worksheet_SelectionChange" unternommen, aber
ohne Erfolg.
Ich hoffe, dass ich mein Vorhaben verständlich rüberbringen konnte
und würde mich riesig freuen wenn eine gute Seele mir helfen könnte.
Schon jetzt vielen dank für eure Mühe.
Jürgen