ich möchte die Bezeichnung von 4 Labels ändern, indem ich per Schleife 4 Namen von Tabellenblättern auslese.
Unten stehendes Makro tut dies leider nicht, wo liegt der Fehler?
Dim ialngIndex As Long, i2 As Long
For i = 1 To Sheets.Count
ialngIndex = 6
Me.Controls("Label" & ialngIndex).Caption = Sheets(i).Name
ialngIndex = ialngIndex + 1
Next i