Guten Tag,
ich erstelle vba basierte exporte von Access nach Excel. Nun wollte ich über Access einen ListenFeld in excel generieren und diese mit daten füllen. Das erstellen eines Listenfeldes funktioniert tadellos aber ansprechen nicht. Irgendwo hab ich verheddert und komme nicht weiter. Kann mir jemand dabei helfen?
For lng_Zeile = 9 To
'Text zerlegen Trennzeichen ist das Semikolon
strListe = Split(Cells(lng_Zeile, 1), ";")
strListe2 = Split(Cells(lng_Zeile, 2), ";")
'schreiben
ListBox1 = .ListBoxes.Add(2.25, 106.5, 291, 198).Select
With .ListBox1
For y = 0 To .ListCount - 1
If .Selected(i) Then
strListe = strListe & .List(i)
End If
Next y
End With
Next
Gruß
LordBony