Thema: CommandBarButton funktioniert nicht richtig

Hallo VB-Gemeinde,
hab mir da was aus dem Forum zusammengebastelt. D.h. die Codes funktionieren, sind aber wahrscheinlich nicht die beste Lösung. Auf jeden Fall danke schon im voraus für produktive antworten ;-)
lg berthold
Bei der Eingabe von einer Ziffer in das CommandBar-Eingabefeld und dann mit Klick auf den CommandBarButton (ohne "enter" nach Eingabe der Ziffer zu drücken) wird die Zahl, die vor der jetzigen eingegeben wurde addiert und nicht die aktuell eingegebene. Was muss ich da ändern?

'allgemeines Modul
Sub CreateInputboxBarZahlende()
'Menüleiste mit Textfeld und Button zum Ausführen
Dim oBar As CommandBar
Dim oCombo As CommandBarControl
Dim oBtn As CommandBarButton
DeleteInputboxBarZahlende
With Application.CommandBars.Add(Name:="Zahlende")
.Visible = True
.Position = msoBarFloating
Set oCombo = .Controls.Add(Type:=msoControlEdit, Temporary:=True)
Set oBtn = .Controls.Add(Type:=msoControlButton, Temporary:=True)
End With
With oCombo
.OnAction = "addieren"
.Width = 50
End With
With oBtn
.Caption = "Zahlend"
.OnAction = "addieren"
.Style = msoButtonIconAndCaption
.FaceId = 137
End With
End Sub

Private Sub addieren()
Dim ziffer As Integer
ziffer = Application.CommandBars("Zahlende").Controls(1).Text
' If ziffer = 0 Or Empty Then Exit Sub
' in Gästeliste ist e166 der Altbestand der Gäste, e168 der Neubestand der Gäste nach Eingabe
If ziffer >= 0 Then
Range("G167").Select
ActiveCell.FormulaR1C1 = ziffer
Range("G167").Select
Selection.Insert Shift:=xlDown
Sheets("Gästeliste").Range("e166") = Sheets("Gästeliste").Range("e167")
Sheets("Gästeliste").Range("e167") = Sheets("Gästeliste").Range("e166") + ziffer
' Application.CommandBars("Zahlende addieren").Controls(1).Clear
End If
End Sub

Sub DeleteInputboxBarZahlende()
On Error Resume Next
Application.CommandBars("Zahlende").Delete
End Sub

Hi Berthold,
es wird nicht gern gesehen wenn du da die Frage alle 40 Minuten erneut stellst.
Gruß
Reinhard

ja, kann ich mir vorstellen.
der Betreff war aber vorher falsch, deshalb neu eingestellt, da es nicht möglich ist, einen alten Beitrag zu editieren.
und konnte bis jetzt leider nichts finden, wie ich meinen eigenen Beitrag löschen kann.

Hallo,
das geht nicht.
Das Eingabefeld erhält erst durch Enter seinen Wert.
Gruß
Rudi

versteh ich nicht. bei der suchfunktion (strg + f) funktioniert das auch mit dem klick auf "weitersuchen", ohne vorher mit enter bestätigt zu haben bzw. den wert mit enter zu übergeben. da wird auch der wert bzw. begriff gesucht, der ohne enter eingetippt wurde.
lg berthold