in eine Listbox habe ich bisher 3 Spalten vom Sheet "JAHR" eingelesen.
lstValues.RowSource = "JAHR!A7:C156"
Jetzt möchte ich aber nur noch die Bereiche A7:A156 und F7:F156 einlesen.
Wie müsste die Codezeile dann lauten?
Viele Grüße
Mario
Private Sub UserForm_Initialize()
Dim arrTest(1 To 150, 1 To 2), i As Long
For i = 7 To 156
arrTest(i - 6, 1) = Sheets("Jahr").Cells(i, 1)
arrTest(i - 6, 2) = Sheets("Jahr").Cells(i, 6)
Next
lstValues.List = arrTest
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe