Hallo zusammen,

ich habe eine Listbox mit ca. 30 einträgen, welche aber variabel sein können.
Alle Listboxeinträge der Listbox2 möchte ich nun in ein Array einlesen, weiß aber leider nicht wie. Kann mir da jemand behilflich sein?

Vielen Dank schon mal.
Gruß
Andi

Option Explicit
Option Base 1

Private Sub CommandButton1_Click()
'abfrage generieren
Dim i, b, x As Byte '
Dim wksOut, wksGes As Worksheet
Dim vtnr As String
Dim lb2Count As Byte
Dim var()

Set wksOut = Sheets("Übersicht")
Set wksGes = Sheets("Ziele_Gesamt")

lb2Count = ListBox2.ListCount

ReDim Preserve var(lb2Count)

For i = 1 To lb2Count

var(i) = listbox2. ??????

Next