Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Label-Bezeichnung per VBA ändern


Betrifft: Label-Bezeichnung per VBA ändern von: Dave
Geschrieben am: 09.04.2019 10:45:10

Hallo zusammen.

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 < 32 Then
        For i = 1 To Dauer
            Me("Tag" & Format(i, "00")).Visible = True
Fehler -->  Me("Ort" & Format(i, "00")).Caption = CStr(ReisebeginnDatum + i - 1)
Test-->     'Tag01.Caption = CStr(ReisebeginnDatum + i - 1)
        Next
    End If
End Sub
Was mache ich falsch und wie macht man es besser?

Danke vorab und liebe Grüße
David

  

Betrifft: doppelt - o.w.T. von: Beverly
Geschrieben am: 09.04.2019 10:50:22


GrußformelBeverly's Excel - Inn


  

Betrifft: Sorry, instabile Internet-Verbindung von: Dave
Geschrieben am: 09.04.2019 11:04:39

Sorry, unser Provider hat gerade Probleme, die Internet-Verbindung ist ständig unterbrochen.


Beiträge aus den Excel-Beispielen zum Thema "Label-Bezeichnung per VBA ändern"