Bezeichnungsfeld variabel ansprechen
17.08.2017 14:17:07
reiner
auf einer UF sind 31 Bezeichnungsfelder (lblTag1 - lblTag31) eingefügt; diese werden separat über den Programmcode angesprochen. (das funktioniert auch)
Die auszuwertenden Daten sind auf bis zu 31 Tabellenblättern mit Namen wie Tag1, Tag2 ... Tag31 aufgelistet, der Tabellenblattname wird in der Variablen "Tabelle" gespeichert.
Nun will ich den Programmcode wegen besserer Übersichtlichkeit kürzen indem die 31 "If .. Else .. EndIf- Prozeduren" auf eine universell verwendbare Prozedur reduziert werden. Dazu müssen allerdings auch die weiterhin verwendeten 31 lbl-Steuerelemente auf der UF jeweils separat angesprochen werden können.
Dazu stelle ich mir vor dass z.B. lblTag1.Caption in lbl & Tabelle.Caption (Tabelle= Tag1, (Tag2 .. Tag31)) umbenannt wird; das funktioniert so natürlich nicht. Ich weiß auch nicht ob es überhaupt möglich ist ein Steuerelement variabel anzusprechen.
Hat jemand Kenntnisse ob meine Vorstellung überhaupt realisierbar ist?
Tabelle = ActiveWorkbook.ActiveSheet.Name 'Name des aktiven Tabellenblatts
If neueDaten = 1 Then
lblTag1.Caption = Tabelle & ", keine Daten eingelesen"
neueDaten = 0
Else
lblTag1.Caption = Tabelle & ", neue Daten eingelesen"
lblTag1.BackColor = &HFFFF&
neueDaten = 0
End If
If neueDaten = 1 Then
lblTag2.Caption = Tabelle & ", keine Daten eingelesen"
neueDaten = 0
Else
lblTag2.Caption = Tabelle & ", neue Daten eingelesen"
lblTag2.BackColor = &HFFFF&
neueDaten = 0
End If
If neueDaten = 1 Then
lblTag31.Caption = Tabelle & ", keine Daten eingelesen"
neueDaten = 0
Else
lblTag31.Caption = Tabelle & ", neue Daten eingelesen"
lblTag31.BackColor = &HFFFF&
neueDaten = 0
End If
mfG
reiner