Hintergrundfarbe merken
12.05.2006 10:31:40
harald
ich habe untenstehenden Code bekommen, mit dem die eine best. Zelle markiert wird. Beim ändern der Textbox wird der Hintergrund wieder weiß und die nächste aktuelle Zelle bekommt einen anderen Hintergrund. Nun ist aber der Hintergrund nicht immer weiß, sondern auch mal grün oder rot, was im Programm eingestellt wird.
Wie kann ich nun erreichen, dass die ursprüngliche Hintergrundfarbe gemerkt und nach dem Wechsel wieder eingestellt wird?
Hier ist der bisherige code:
Private Sub Textbox_Change()
'Markiert die Zelle, die mit dem gesuchten Begriff beginnt
Dim Zelle As Range, Bereich As Range
With ActiveSheet
Set Bereich = .Range("A6:A" & .UsedRange.Row + .UsedRange.Rows.Count - 1)
End With
If Textbox.Value <> "" Then
For Each Zelle In Bereich
If LCase(Left(Zelle.Value, Len(Textbox.Value))) = LCase(Textbox.Value) Then
' erstes Auftreten der Zeichenfolge ohne Beachtung von Grossbuchstaben suchen)
Zelle.Activate
Bereich.Interior.ColorIndex = 2
' Zelle.Interior.ColorIndex = 6
ActiveWindow.ScrollRow = Zelle.Row - 1
' scrollen zu Zeile über markierter Zeile
Textbox.Activate
Exit For
End If
Next Zelle
End If
End Sub
M.f.G.
Harald