Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem Symbolleiste Suchbox

Problem Symbolleiste Suchbox
26.01.2006 00:05:02
SteffenS
Hallo und guten abend
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem Symbolleiste Suchbox
26.01.2006 00:58:36
Josef
Hallo Steffen!
Zum ersten Problem könnte die Lösung z.B. so aussehen!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub symberz()
Dim cmbMain As CommandBar
Dim myCtrl As CommandBarControl

On Error Resume Next
Application.CommandBars("Zinskalkulation").Delete
Err.Clear
On Error GoTo 0

Set cmbMain = Application.CommandBars.Add("Zinskalkulation")

Set myCtrl = cmbMain.Controls.Add(Type:=msoControlEdit)


With myCtrl
  .Width = 100
  .TooltipText = "Fahrgestellnummer eingeben und mit ENTER bestätigen"
  .Text = ""
  .OnAction = "fhgst_suchen"
  .BeginGroup = True
  .Tag = "myList"
End With

Set myCtrl = Nothing

Set myCtrl = cmbMain.Controls.Add(Type:=msoControlButton)

With myCtrl
  .FaceId = 202
  .Style = msoButtonIconAndCaption
  .TooltipText = "Fahrgestellnummer suchen"
  .OnAction = "fhgst_suchen"
End With

Set myCtrl = Nothing

cmbMain.Visible = True

Set cmbMain = Nothing

End Sub



Sub fhgst_suchen()
Dim objList As CommandBarControl
Dim Zinskalkulation As String, c As Range

'Suchbegriff aus Textbox

Set objList = CommandBars.ActionControl.Parent.FindControl(Tag:="myList")
Zinskalkulation = objList.Text

If Zinskalkulation = "" Then Exit Sub
For Each c In [C11:C610]
  If c.Value Like "*" & Zinskalkulation & "*" Then
    c.Select
    Exit For
  End If
Next
End Sub


Die Beschränkung der Eingabe auf 17 Zeichen, ist IMHO nicht möglich!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
Suche über Button geht nicht
26.01.2006 08:36:52
SteffenS
Hallo Sepp,
die Suche über Eingabe in das Feld und Enter geht.
Über die Schaltfläche geht es nicht.
Er führt zwar das Makro aus, aber die Variable
Zinskalkulation ist leer.
Wie bekomme ich den Wert übergeben.
Danke Dir nochmals
Steffen Schmerler
Suche geht jetzt nur wert passt nicht
26.01.2006 08:47:45
SteffenS
Also irgendwie geht die Suche jetzt.
Das komische ist nur wenn ich auf die Schaltfläche klicke so wird in der Box der Wert wieder angezeigt den die Box hatte als ich durch drücken von ENTER gesucht habe.
Wie lese ich nun den Wert aus?
Danke schonmal
Steffen Schmerler

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige