Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
in geschützten Zellen nicht suchen !
11.09.2008 06:59:00
Ernst
Guten Morgen !
was müsste bei diesem Code geändert werden um das Suchen in geschützten Zellen zu unterbinden ?

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 dankbar..
Lg.Ernst

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in geschützten Zellen nicht suchen !
11.09.2008 09:18:09
Mac4
Moin Ernst,
ungetestet - versuchs mal so:
If Not LastAuswahl Is Nothing and LastAuswahl.Locked = False Then
Marc
AW: in geschützten Zellen nicht suchen !
11.09.2008 12:51:12
Ernst
Hallo habs probiert funftioniert leider nicht...
Lg.Ernst
AW: in geschützten Zellen nicht suchen !
11.09.2008 12:56:00
Mac4
Hallo Ernst,
wie äußert sich denn das "..funftioniert leider nicht..."?
Marc
AW: in geschützten Zellen nicht suchen !
12.09.2008 09:58:45
weingartner
Guten Morgen !
Fehlermeldung 91 Objektvariable oder With Blockvariable nicht festgelegt..
habe ich die Code Zeile richtig plaziert ?

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 And LastAuswahl.Locked = False 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


Lg.Ernst

Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige