Sub Auswertung()
Dim Zelle As Integer ' Zählvariable definieren
Dim Inhalt() As String ' Dynamisches Array für eine beliebige
' Anzahl von Spalten
Zelle = 1 ' Initialisieren der Zählvariable
ReDim Inhalt(Zelle) ' Deklarieren der ersten Variable
Do While Not ThisWorkbook.Sheets("Gesamt").Cells(1, Zelle) = Empty ' Lesen der Zeile 1 und Spalten (Zellen) solange
' ein Wert in der ersten Zeile steht
Inhalt(Zelle) = ThisWorkbook.Sheets("Gesamt").Cells(1, Zelle).Value ' gelesenen Wert in der Variable Inhalt(Zelle) Speichern
Auswahlblatt.lstAuswahl.AddItem Inhalt(Zelle) ' Checkbox mit Text hinzufügen
Zelle = Zelle + 1 ' Index Zelle um 1 erhöhen
ReDim Preserve Inhalt(Zelle) ' weitere Variable definieren, alter Wert wird gespeichert
Loop
Auswahlblatt.Show ' Formular mit ListBox anzeigen
End Sub