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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen