ich habe eine Userform (Dateiliste), mit der ich (unter anderem) eine häufig benutzte Datei per Schaltfläche aufrufe, die es aber jeden Monat in einer neuen Version gibt.
Deswegen versehe ich die betreffende Schaltfläche mit einem Label, welches dann ausgewertet wird:
Caption aktuell: NRT DW 2012-05
Private Sub NRT_DW_Click()
Dim Lbl As String
Unload Dateiliste
Lbl = NRT_DW.Caption
Lbl = Right(Lbl, 7)
Workbooks.Open filename:="S:\...\2012\" & Replace(Lbl, "-", "_") & "\NRT " & Lbl & ".xlsx"
End Sub
Um das Label nicht per Hand ändern zu müssen, wollte ich einen "Aktualisierungs-Button" erstellen. Das funktioniert auch mit dem folgenden Code:Private Sub CommandButton1_Click()
Dim Lbl As String
Lbl = NRT_DW.Caption
Lbl = InputBox("neuer Name", , Lbl)
NRT_DW.Caption = Lbl
End Sub
Nun habe ich aber festgestellt, dass das Label beim Neustart des Formulars "Dateiliste" wieder auf dem ursprünglichen Wert steht, d.h. der per Inputbox neu vergebene Name wird nur zur aktuellen Laufzeit verwendet und anschließend wieder "zurückgesetzt".Läßt sich dieses Verhalten ändern, damit das Label dauerhaft geändert wird und wenn ja, wie?
Danke und Gruß
David