mit VBA eine Combobox mit Datums füllen

27/01/2010 - 10:11 von Thomas Eisenmann | Report spam
Hallo alle miteinander,

Ich habe auf ein Arbeitsplatz mit der Steuerelement-Toolbox eine Combobox
mit dem Namen: Combobox1 platziert. Wie sieht der Script aus, welcher beim
öffnen der Excel-Datei diese Combobox mit Werten füllt. Ich möchte, dass das
Datum der nàchsten 12 Freitage in der Combobox1 steht.

Fr. 05.02.2010
Fr. 12.02.2010
.
.
.
Fr. 23.04.2010

Könnt Ihr mir helfen bei der Umsatzung? Danke im Voraus

Danke im Voraus
Grüße Thomas
 

Lesen sie die antworten

#1 Andreas Killer
27/01/2010 - 12:18 | Warnen spam
On 27 Jan., 10:11, Thomas Eisenmann
wrote:

Ich habe auf ein Arbeitsplatz mit der Steuerelement-Toolbox eine Combobox


Auf ein Arbeitsplatz??? Du meinst eine Tabelle, oder?

mit dem Namen: Combobox1 platziert. Wie sieht der Script aus, welcher beim
öffnen der Excel-Datei diese Combobox mit Werten füllt. Ich möchte, dass das
Datum der nàchsten 12 Freitage in der Combobox1 steht.

Fr. 05.02.2010


Ausgehend von heute wàre den nàchste Freitag aber der 29.1.2010,
oder? ;-)

Andreas.

Private Sub Workbook_Open()
Dim Datum As Date, Tag As Integer
'Heute
Datum = Date
'Wochentag holen
Tag = Weekday(Datum, vbUseSystemDayOfWeek)
'Nàchsten Freitag berechnen
Select Case Tag
Case 5
'Okay, heute ist Freitag
Case Is < 5
Datum = Datum + 5 - Tag
Case Else
Datum = Datum + Tag - 7 + 5
End Select
'Die nàchsten 12 Freitage hinzufügen
For Tag = 1 To 12
Sheets(1).ComboBox1.AddItem Datum
Datum = Datum + 7
Next
End Sub

Ähnliche fragen