Januar, Februar, März,.............Dezember eigene

Forumthread: Januar, Februar, März,.............Dezember eigene
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Januar, Februar, März,.............Dezember eigene

21.02.2004 18:49:07

Claudia

Hallo
Gibt es nicht eine Möglichkeit, eine eigene Menüleiste mit den Monatsnamen zu erstellen, wenn ja ,kann mir jemand die Lösung zeigen?
danke
Claudia

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Januar, Februar, März,.............Dezember eigene

21.02.2004 18:55:30

Bert
AW: Januar, Februar, März,.............Dezember eigene

21.02.2004 19:34:12

Josef Ehrensberger
AW: Januar, Februar, März,.............Dezember eigene

21.02.2004 22:26:29

tool

AW: Januar, Februar, März,.............Dezember eigene

21.02.2004 18:55:30

Bert

Ja klar, aber was soll beim Klick passieren?
Bert

AW: Januar, Februar, März,.............Dezember eigene

21.02.2004 19:34:12

Josef Ehrensberger

Hallo Claudia!
Ein Beispielcode.

Private Sub createBar()
Dim myBar As CommandBar
Dim myBtn As CommandBarButton
Dim intC As Integer
deleteBar
Set myBar = Application.CommandBars.Add("Meine Leiste", msoBarTop, Temporary:=True)
With myBar
.Visible = True
End With
For intC = 1 To 12
Set myBtn = myBar.Controls.Add(msoControlButton)
With myBtn
.Style = msoButtonCaption
.Caption = Format(DateSerial(1, intC, 1), "mmmm")
.OnAction = "DeinMakro"
.BeginGroup = True
End With
Next
End Sub
Private Sub deleteBar()
On Error Resume Next
Application.CommandBars("Meine Leiste").Delete
End Sub
Private Sub DeinMakro()
MsgBox Application.CommandBars.ActionControl.Caption
End Sub