Exel Suche
26.05.2008 14:06:31
weingartner
Hätte da ein Problem und zwar folgendes ich Verwende folgenden Code:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
b = TextBox1.Value
c = Len(b)
x = y
If KeyCode = 13 Then
If c > 1 Then
On Error GoTo ende
Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
'Range("P104").Value = b
'TextBox1.Value = ""
Exit Sub
ende:
'TextBox1.Value = ""
MsgBox "Nr. nicht vorhanden !!"
End If
End If
End Sub
nun möchte ich das der gefundene Eintrag farblich zb.gelb dargestellt wird bei verlassen der Zelle wieder die Ursprungfarbe annimmt .bei Speichern oder verlassen des Tabellenblattes sowie Bei drucken sollte die Markierung nicht übernommen werden. Das ganze sollte auch bei gesperrten Zellen funktionieren...
wie müsste der Code ausschauen das dies möglich ist
lg.Ernst