In geschützten Zellen nicht suchen
13.09.2008 07:58:00
weingartner
Liebe Vba User würde eure Hilfe benötigen und zwar bräuchte ich einen bestehenden Code geändert .
Es geht dabei das in geschützten zellen nicht mehr gesucht wird ...........
User Marc4 hat mir folgende Lösung angeboten ..
If Not LastAuswahl Is Nothing and LastAuswahl.Locked = False Then
als ich das versuchte bekam ich immer eine Fehlermeldung bin mir aber nicht sicher ob ich die Codezeile richtig plaziert habe ?
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim b As Variant, c As Integer, objZelle As Range
b = TextBox1.Value
c = Len(b)
x = y 'ist wohl überflüssig
If KeyCode = 13 Then
If c > 1 Then
On Error GoTo ende
Application.EnableEvents = False
ActiveCell.Select
Me.Unprotect
Set objZelle = Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If objZelle Is Nothing Then
MsgBox "Wagen Nr. nicht vorhanden !!"
'TextBox1.Value = ""
Else
'ggf. letzte Markierung entfernen
If Not LastAuswahl Is Nothing Then
LastAuswahl.Interior.ColorIndex = oldFarbe
Set LastAuswahl = Nothing
End If
objZelle.Activate
Set wksLast = Me 'Tabellenblatt merken
Set LastAuswahl = objZelle 'Zelle merken
oldFarbe = objZelle.Interior.ColorIndex 'Farbe Merken
objZelle.Interior.ColorIndex = 45 'orange
'Range("P104").Value = b
'TextBox1.Value = ""
End If
Me.Protect
Application.EnableEvents = True
End If
End If
Exit Sub
ende:
Application.EnableEvents = True
MsgBox Err.Number & vnld & Err.Description
Me.Protect
End Sub
wäre für Lösungsvorschläge sehr dankbar .
Lg.Ernst