Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

Januar, Februar, März,.............Dezember eigene
21.02.2004 17: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
Anzeige
AW: Januar, Februar, März,.............Dezember eigene
21.02.2004 17:55:30
Bert
Ja klar, aber was soll beim Klick passieren?
Bert
AW: Januar, Februar, März,.............Dezember eigene
21.02.2004 18: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

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: Januar, Februar, März,.............Dezember eigene
21.02.2004 21:26:29
tool
Hi
Ich kann dir Beispiel senden,
Mr.Tool@gmx.de melde dich bei mir
mfg tool

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige