DatePicker mit Labels

Hallo liebes Forum,
ich habe im Internet eine Möglichkeit gefunden wie man einen Datepicker mit Hilfe einer Userform erstellen kann.
Derjenige, der den Code erstellt hat, hat bei den Kalendertagen mit sehr vielen Frames gearbeitet.
Zwar funktioniert der DatePicker; allerdings führen die zahlreichen Frames dazu, dass der Code sehr langsam ist.
Meine Datei für einen Datepicker mit Frames findet ihr hier:
https://www.herber.de/bbs/user/155606.xlsm
Ich habe also in einem nächsten Schritt anstelle der Frames Labels erstellt.
Problem ist hier, dass der Code noch angepasst werden muss.
Wie kann ich es hinbekommen, dass in dem folgenden Code-Abschnitt nur die Labels 14 bis 55 angesprochen werden?
Hintergrund ist, dass in der Userform auch andere Labels sind, die nicht angesprochen werden dürfen.
Dim Frame As Control
For Each Frame In UserForm1.Controls
If TypeName(Frame) = "Frame" Then
i = i + 1
Frame.Caption = Format(Day(firstday + i), "0#")
If MonthName(Month(firstday + i)) = UserForm1.Label6 Then
Frame.Enabled = True
Else
Frame.Enabled = False
End If
End If
Next
End Sub
Eine Beispieldatei von mir mit den Labels findet ihr hier:
https://www.herber.de/bbs/user/155607.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Henry
grundsätzlich find ich erst mal gut, dass du alle Frames entfernt und durch Labels ersetzt hast!
Um bei so vielen Labels die Übersicht zu behalten, würd aber ich als erstes erst mal damit beginnen, dass die Labelnamen nicht einfach Label14...Label55 heißen.
Ich würde die Namen genau dieser Labels umbenennen in
lblTag01
lblTag02
...
lblTag42
So kann ich bei der Wertzuweisung (Tageszahl) für jedes dieser Labels schon mal eingrenzen, z Bsp so


Dim lctrlbl As Control
For Each lctrlbl In UserForm1.Controls
If Typename(lctrlbl) = "Label" Then
If Left(lctrlbl.Name, 6) = "lblTag" And IsNumeric Right(lctrlbl.Name, 2) Then 'genau JETZT! hab ich eins der Labels, die eine Tageszahl erhalten müssen
'und hier dann der entsprechende Code
End If
End If
Next

...und "meinen" Tages-Labels die entsprechende Tageszahl zuweisen; eben z Bsp nach einem Jahres- und/oder Monatswechsel.
Zusätzlich könnte ich im gleichen Codeabschnitt auch noch überprüfen, ob es sich um einen Feiertag handelt. Wenn ja, dann für das Label z Bsp andere Text- oder Hintergrundfarbe, oder oder oder...
Leider kann ich nur mit Theorie helfen, aber nicht mit Praxis :-) weil ich noch andere Dinge erledigen muss.
Hoffe aber, dass ich trotzdem helfen konnte.
Ciao
Thorsten

Sub Assigndate() Dim objCONTROL As Control Dim FirstSun As Date, FirstDay As Date, a As Date Dim i As Integer a = DateValue("1 " & UserForm1.Label6 & " " & UserForm1.Label5) FirstSun = a - Day(a) - Weekday(a - Day(a), vbSunday) + 8 If Day(FirstSun + 1)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

DatePicker mit Labels

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread