Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CommandBar mit Cursor aktiv setzen

CommandBar mit Cursor aktiv setzen
13.05.2008 12:42:14
Berthold
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt o.wT.
13.05.2008 13:33:00
Reinhard

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige