Makrocode leider vergessen
30.01.2004 07:44:01
Josef
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell") _
.Controls("SVAdgW").Delete
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Dim oPopUp As CommandBarControl
Dim oBtn As CommandBarButton
With Application.CommandBars("Cell")
On Error Resume Next
.Controls("SVAdgW").Delete
On Error GoTo 0
Set oPopUp = .Controls.Add(msoControlPopup)
End With
oPopUp.Caption = "SVAdgW Monatsdruck"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Jänner"
.OnAction = "VJänner"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Februar"
.OnAction = "VFebruar"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "März"
.OnAction = "VMärz"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "April"
.OnAction = "VApril"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Mai"
.OnAction = "VMai"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Juni"
.OnAction = "VJuni"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Juli"
.OnAction = "VJuli"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "August"
.OnAction = "VAugust"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "September"
.OnAction = "VSeptember"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Oktober"
.OnAction = "VOktober"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "November"
.OnAction = "VNovember"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Dezember"
.OnAction = "VDezember"
.Style = msoButtonCaption
End With
End Sub