Menü - dropdown - case - If Msgbox läuft nicht ?
21.07.2006 10:03:44
HorstH
weiß jemand die Lösung des Problems: Habe im Menü ein Dropdown mit case. Als cas möchte ich gleich nach Auswahl eine Abfrage, ob tatsächlich ausführen oder abbrechen. Meine If-msgbox funktioniert nicht (Makros ohne If gehen) - excel bricht sogar gelegentlich ab. Hat jemand Ahnung, was ich falsch mache? Tipp wäre prima. Danke und Gruß, Horst
a)die case-Anweisung mit If-boxen + b) Auszug Menü (ToolTip wird auch nicht angezeigt?!)
Sub DropDownMenueAuswertung()
Dim objList As CommandBarControl
Dim Auswahl As Byte
Set objList = CommandBars.ActionControl
Auswahl = objList.ListIndex
Select Case Auswahl
Case 1:
' If MsgBox("Wollen Sie den Menüpunkt 'Auswertung Standard: Tabelle ...' ausführen?", vbQuestion + vbYesNo) = vbYes Then
AuswertungMonateQuartaleJahr
Case 2:
' If MsgBox("Wollen Sie den Menüpunkt 'Auswertung Pivot: Pivotberichte und Charts' ausführen?", vbQuestion + vbYesNo) = vbYes Then
' xyz1
Case 3:
' If MsgBox("Wollen Sie ...?", vbQuestion + vbYesNo) = vbYes Then
' xyz2
Case 4:
' If MsgBox("Wollen Sie ...?", vbQuestion + vbYesNo) = vbYes Then
' xyz3
Case 5:
' If MsgBox("Wollen Sie ...?", vbQuestion + vbYesNo) = vbYes Then
' xyz4
End Select
End Sub
...
Set cmdButton = M4.Controls.Add(Type:=msoControlButton, ID:=1)
With cmdButton
.Caption = "Auswertung Schritt 4: Datei duplizieren + Speichergröße verringern"
.OnAction = "DateiDuplizierenSpeichergröße"
.Style = msoButtonIconAndCaption
.FaceId = 1791 '2111 '956
.Enabled = False
End With
Set cmdButton = M4.Controls.Add(Type:=msoControlDropdown, ID:=1)
With cmdButton
.BeginGroup = True
.AddItem "Auswertung Standard: Tabelle (Werte und %) ..."
.AddItem "Auswertung Pivot: Pivotberichte und Charts"
.AddItem "Auswertung Gliederung: Tabellengliederung mit Grafik"
.AddItem "Auswertung 'X' in Spalten: von ... bis ... Monate (max. 10 Monate) ohne Grafik"
.AddItem "Auswertung 'X' in Spalten: Vierteljahre, getrennt nach Kategorien"
.ListIndex = 1
.OnAction = "DropDownMenueAuswertung"
.TooltipText = "Bitte auswählen..."
.Enabled = True
End With
Set cmdButton = M4.Controls.Add(Type:=msoControlButton, ID:=1)
With cmdButton
.BeginGroup = True
.Caption = "Terminkalender: Kalender mit allen bisherigen Terminen ansehen "
.OnAction = "Under_Work"
.Style = msoButtonIconAndCaption
.FaceId = 125
.Enabled = True
End With
...