Userformen indexiert ansprechen
05.04.2022 08:46:35
Michael
Ich besitze leider nur weinige Excel-VBA Kenntnisse und möchte gerne Listboxen aus verschiedenen Userformen indexiert ansprechen.
Bisher löse ich das folgendermassen:
f_BbwInstl1.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl2.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl3.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl4.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl5.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl6.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl7.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl8.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl9.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl10.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl11.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
f_BbwInstl12.ListBox1.List = Sheets("tabellarisch").Range(Sheets("tabellarisch").Cells(Zeile + 1, Spalte), Sheets("tabellarisch").Cells(Zeile + 3, Spalte + 1)).Value
Wie kann ich die Userformen "f_BbwInstl (1-12)" indexiert ansprechen um das ganze in einer Schleife lösen zu können?ich hoffe, man versteht die Beschreibung meines Problems.
Für Hilfe wäre ich sehr dankbar.