Farbenänderung der Zelle beim anklicken
12.04.2019 11:47:36
Viktor
Ich habe ein Problem zu dem Ich online keine Lösung gefunden habe.
Ich Habe hier eine schönes VBA Makro was auch sehr gut funktioniert, nun möchte aber eine Änderung vornehmen und kriege es von alleine nicht hin.
Sub suchen()
Dim rngFind As Range
Dim strTitel As String
'suchdialog kreieren
strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 5, 5)
'zu durchsuchenden spaltenumfang angeben
Set rngFind = Columns("A:H").Find(strTitel, LookIn:=xlFormulas)
'zur stelle springen oder message ausgeben
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Es wurde nichts gefunden"
End If
End Sub
Wenn ich auf die gefundene Zelle springe, soll die sich farbig ändern, sobald ich von der Zelle wegklicke soll sie Ihre alte Farbe annehmen.
Würde mich über eine Lösung freuen.
MfG Viktor