Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kalender

Kalender
14.04.2006 12:01:56
Erich
Hallo Excelaner
Habe folgendes Problem.
Ich möchte diesen Code um ein Menue "Jahre" erweitern.
Bekomme es aber nicht hin.
Kann mir jemand helfen oder einen Tipp geben.

Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oCntr As CommandBarControl
Dim oBtn As CommandBarButton
Dim iMonth As Integer, iDay As Integer
Call CmdDelete
Set oBar = Application.CommandBars.Add("Datum", msoBarPopup)
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = Year(Date)
.Style = msoButtonCaption
End With
For iMonth = 1 To 12
Set oCntr = oBar.Controls.Add(msoControlPopup)
oCntr.Caption = Format(DateSerial(Year(Date), iMonth, 1), "mmmm")
If iMonth = 1 Then oCntr.BeginGroup = True
For iDay = 1 To Day(DateSerial(Year(Date), iMonth + 1, 0))
Set oBtn = oCntr.Controls.Add
With oBtn
.Caption = iDay
.Style = msoButtonCaption
.OnAction = "Kalender"
End With
Next iDay
Next iMonth
End Sub

Für jeden Ansatz schon mal Danke
Gruss Erich

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalender
14.04.2006 12:13:56
Erich
Hallo Nepumuk
Vorab schon mal Danke, aber die Datei läßt sich nicht öffnen.
Gruss Erich
AW: Kalender
14.04.2006 12:22:32
Nepumuk
Hallo Erich,
das ist ein Addin, wenn du das mit einem Doppelklick öffnest siehst du natürlich nichts. Du musst das Addin entweder über den Addins-Manager laden, oder zusätzlich eine Mappe öffnen, dann findest du einen zusätzlichen Eintrag im Kontextmenü der Zellen.
Gruß
Nepumuk

Anzeige
AW: Kalender
14.04.2006 12:24:48
Erich
Hallo Nepumuk
Asche auf mein Haupt.
Habe es hinbekommen.
Vielen Dank der Code ist perfekt.
Gruss Erich

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige