ich verzweifle grade an folgender Aufgabe:
1. In einer Tabelle habe ich verschiedene Überschriften in mehreren Spalten nebeneinander stehen. Unter jeder Überschrift finden sich Statistikwerte. Nun will ich zum einen, über eine Schleife in VBA, die Überschriften der Spalten UNTEREINANDER in eine ListBox schreiben. Die Überschriften aktualisieren sich, sprich es können auch neue hinzukommen oder bestehende gelöscht werden. Ist die Spalte hinter einer Überschrift leer, sollen keine weiteren Überschriften eingelesen werden. ListFillrange fällt also schonmal sowieso weg.
2. Die ListBox soll über eine MultiSelect Funktion verfügen. Wähle ich bestimmte Überschriften aus, sollen mir anschließend Werte angezeigt werden, welche unter den jeweiligen Überschriften stehen.
Ich habe im Forum folgenden Code gefunden:
Private Sub ListBox1_Initialize()
Dim lngRow As Long
Dim Bereich As Range
Dim Z As Object
lngRow = Worksheets("Dateneingabe").Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Worksheets("Dateneingabe").Range("D2:K2" & lngRow)
For Each Z In Bereich
Worksheets("Dateneingabe").ListBox1.AddItem Z
Next Z
End Sub
Dieser liest aber lediglich eine Spalte KOMPLETT, also auch mit Leerzeilen usw. ein.Ich hoffe das ist soweit verständlich und jemand kann mir hier helfen.