Zuweisung an Eigenschaft klappt nicht
15.03.2022 10:43:28
Gerhard
ich habe eine Userform, die einen 4-Wochen-Kalender tabellarisch anzeigt. Für die Überschriftszeile sind 28 Labels mit den Namen "Tag01" bis "Tag28" definiert, die bei der Initialisierung mit dem Kalendertag des jeweiligen Datums befüllt werden. Wenn das Datum auf Samstag oder Sonntag fällt, dann soll der text fett dargestellt werden. Der Code läuft auf einem Rechner fehlerfrei, auf einem zweiten Rechner mit identischer Softwareversion werden alle Labels fett dargestellt.
For i = 0 To 27
With Me.Controls("Tag" & Format(i + 1, "00"))
.Caption = Format(dtStart + i, "dd")
If Weekday(dtStart + i, vbMonday) > 5 Then
'Samstag und Sonntag hervorheben
.Font.Bold = True
Else
.Font.Bold = False
End If
End With
Next i
Im Debugger kann ich sehen, dass der Else-Zweig durchlaufen wird, aber nach der Anweisung ist das Attribut = True.Hat jemand eine Idee, wo ich nach der Ursache suchen könnte?
Viele Grüße
Gerhard