Label-Bezeichnung per VBA ändern
09.04.2019 10:45:10
Dave
Ich bräuchte bitte Hilfe in einer Userform.
Ich habe mehrere Label mit Namen in der Form "TagXX" wobei das XX für 01 bis 31 steht. Diese sollen aus dem Code heraus bei Bedarf mit einer variablen Beschriftung (.Caption) versehen werden. Die Beschriftung ergibt sich aus einem Datum, das in Text umformatiert werden soll, weil die Caption-Eigenschaft nur Text akzeptiert.
Wenn ich testhalber die Zeile
'Tag01.Caption = CStr(ReisebeginnDatum + i - 1)
versuche, klappt das auch.
Sobald ich das jedoch in der Schleife verwende wie unten zu sehen [Me(...)] bekomme ich eine Fehlermeldung. Der erste Teil mit der .Visible-Eigenschaft funktioniert problemlos.
Private Sub ReiseendeDatum_Change()
Dauer = ReiseendeDatum - ReisebeginnDatum
If Dauer > 0 And Dauer Fehler --> Me("Ort" & Format(i, "00")).Caption = CStr(ReisebeginnDatum + i - 1)
Test--> 'Tag01.Caption = CStr(ReisebeginnDatum + i - 1)
Next
End If
End Sub
Danke vorab und liebe Grüße
David
Anzeige