Erweiterung klappt nicht
09.05.2020 16:47:39
sigrid
ich habe am 6.5. eine Lösung gefunden,
leider klappt es nicht für die Spalte daneben, das die Roten Datumswerte in
der UF auch angezeigt werden.
Die Spalte B funktioniert einwandfrei.
'----------- jetzt werden die Datumswerte Rot in UF übernommen ----
Dim x
For x = 0 To 30
'''UserForm2.Controls("Label" & x + 2).Caption = Cells(x + 14, 3).Text
UserForm1("Label" & x + 1).ForeColor = Cells(x + 14, 2).Font.Color
Next
'----------- klappt nicht !!!-------------
'Dim x
For x = 31 To 61
UserForm1("Label" & x + 1).ForeColor = Cells(x + 14, 3).Font.Color
Next
mfg sigrid