ListBox1.List = "Mehrere Range"
29.03.2016 14:10:17
baschti007
Gibt es eine Möglichkeit mehrere Range in ListBox1.List = "" zu bekommen weil ich die Überschrift der Tabelle immer haben möchte.
Sub Test
Dim arr1 As Range
Dim arr2 As Range
Dim ArrRange As Range
ListBox1.Clear
Set arr1 = Sheets("Tabelle1").Range(Cells(1, 7), Cells(1, 24))
Set arr2 = Sheets("Tabelle1").Range(Cells(lngerste.Row, 7), Cells(lngerste.Row + lngAnzahl - 1, _
_
_
24))
Set ArrRange = Application.Union(arr1, arr2)
ListBox1.List = ArrRange.Value
End Sub
Dank an euch =)