Die momentane Programmierung sieht wie folgt aus:
###########################################################
For f = 2 To einst.Range("Zaehler_Zeilen_in_Steuerung").Value + 1
For Each nFrame In Array(uf1.Frame38, uf1.Frame44, uf1.Frame22, uf1.Frame21, uf1.Frame41, uf1.Frame20, uf1.Frame52, uf1.Frame45, uf1.Frame47, uf1.Frame46, uf1.Frame51, uf1.Frame29, uf1.Frame36, uf1.Frame23, uf1.Frame11, uf1.Frame14, uf1.Frame42, uf1.Frame26, uf1.Frame50, uf1.Frame6, uf1.Frame27, uf1.Frame5, uf1.Frame16, uf1.Frame9, uf1.Frame49, uf1.Frame1)
For Each nControl In nFrame.Controls
If nControl.name = CStr(strg.Range(("K") + CStr(f)).Value) Then
strg.Range(("H") + CStr(f)).Value = nFrame.name
strg.Range(("I") + CStr(f)).Value = nFrame.Caption
End If
Next nControl
Next nFrame
Next f
###########################################################
Ich würde aber gerne, anstatt jedes einzelne Frame aufzählen zu müssen (wie z.B.: uf1.Frame9, uf1.Frame49, uf1.Frame1,...), mir eine Liste in einem Tabellenblatt machen und diese dann mit dem Array auslesen.
Sprich im TB "Steuerung" in Spalte "AM" stehen die Frames.
Leider komme ich nicht auf die Lösung.
Ich danke schon mal im Voraus für Hilfen und Tipps!
Grüße
Björn