Ich habe in einer Symbolleiste ein Suchfeld eingerichtet.
Die Suche durch die Eingabe von Enter klappt auch.
Jetzt wollte ich noch einen Button zum suchen daneben machen.
Leider funktioniert der Code dann nicht mehr.
Fehler:
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Mein Code
Sub symberz()
Dim cmbMain As CommandBar
Dim cmfButton As CommandBarButton
Set myCtrl = Application.CommandBars("Zinskalkulation").Controls.Add(Type:=msoControlEdit)
Set myCtrl2 = Application.CommandBars("Zinskalkulation").Controls.Add(Type:=msoControlButton)
myCtrl.OnAction = "fhgst_suchen"
myCtrl.Width = 100
myCtrl.TooltipText = "Fahrgestellnummer eingeben und mit ENTER bestätigen"
myCtrl.Text = ""
myCtrl.OnAction = "fhgst_suchen"
myCtrl.BeginGroup = True
myCtrl2.FaceId = 202
myCtrl2.Style = msoButtonIconAndCaption
myCtrl2.TooltipText = "Fahrgestellnummer suchen"
myCtrl2.OnAction = "fhgst_suchen"
End Sub
Sub fhgst_suchen()
Dim objList As CommandBarControl
Dim Zinskalkulation As String
'Suchbegriff aus Textbox
Set objList = CommandBars.ActionControl
Zinskalkulation = objList.Text
If Zinskalkulation = "" Then Exit Sub
For Each c In [C11:C610]
If c.Value Like "*" & Zinskalkulation & "*" Then
c.Select
GoTo raus
End If
Next
raus:
Exit Sub
End Sub
Bei Enter in der Eingabebox soll gesucht,aber auch beim Klick auf suchen.
Wie kann ich die Eingabe in die Box auf 17 Stellen begrenzen.
Danke Euch schonmal vielmal
MFG
Steffen Schmerler