Herbers Excel/VBA-Archiv

CommandBar mit Cursor aktiv setzen

• CommandBar mit Cursor aktiv setzen von Berthold vom 13.05.2008 12:42:14
• doppelt o.wT. - von Reinhard am 13.05.2008 13:33:02

Betrifft: CommandBar mit Cursor aktiv setzen von: Berthold
Geschrieben am: 13.05.2008 12:42:14

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

Betrifft: doppelt o.wT. von: Reinhard
Geschrieben am: 13.05.2008 13:33:02

Beiträge aus den Excel-Beispielen zum Thema "CommandBar mit Cursor aktiv setzen"