Makroanpassung
09.09.2008 12:24:00
Ernst
Wie müsste der Code geändert werden das nur in Spalte A und B gesucht wird ?
wäre für Lösungsvorschläge dankbar.
Lg.Ernst
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
Anzeige