Re: Menüunterteilung
17.11.2002 14:27:43
Josef
Hallo Hans!
Es würde alles klappen, nur, egal welches Monat ich anklicke, es wird immer der Monat Dezember markiert.
Was könnte ich hier noch falsch gemach haben?Sub NewMenue()
Dim oCmdBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oCmdBtn As CommandBarButton
Dim datDay As Date
Dim iMonths As Integer
Call DeleteMenueBar
Set oCmdBar = Application.CommandBars.Add( _
"MyCommandBar", msoBarTop, False, True)
Set oPopUp = oCmdBar.Controls.Add(msoControlPopup)
oPopUp.Caption = "Vergütung"
For iMonths = 1 To 12
Set oCmdBtn = oPopUp.Controls.Add
With oCmdBtn
.Caption = Format(DateSerial(1, iMonths, 1), "mmmm") & " Druck"
.OnAction = "VJänner"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(2, iMonths, 2), "mmmm") & " Druck"
.OnAction = "VFebruar"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(3, iMonths, 3), "mmmm") & " Druck"
.OnAction = "VMärz"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(4, iMonths, 4), "mmmm") & " Druck"
.OnAction = "VApril"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(5, iMonths, 5), "mmmm") & " Druck"
.OnAction = "VMai"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(6, iMonths, 6), "mmmm") & " Druck"
.OnAction = "VJuni"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(7, iMonths, 7), "mmmm") & " Druck"
.OnAction = "VJuli"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(8, iMonths, 8), "mmmm") & " Druck"
.OnAction = "VAugust"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(9, iMonths, 9), "mmmm") & " Druck"
.OnAction = "VSeptember"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(10, iMonths, 10), "mmmm") & " Druck"
.OnAction = "VOktober"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(11, iMonths, 11), "mmmm") & " Druck"
.OnAction = "VNovember"
.Style = msoButtonCaption
End With
With oCmdBtn
.Caption = Format(DateSerial(12, iMonths, 12), "mmmm") & " Druck"
.OnAction = "VDezember"
.Style = msoButtonCaption
End With
Next iMonths
Set oPopUp = oCmdBar.Controls.Add(msoControlPopup)
oPopUp.Caption = "Prüfung"
For iMonths = 1 To 12
Set oCmdBtn = oPopUp.Controls.Add
With oCmdBtn
.Caption = Format(DateSerial(1, iMonths, 1), "mmmm") & " Druck"
.OnAction = "PJänner"
Josef