Hallo Leute,

jetzt hab ich auch mal wieder eine Frage: Ich hab im Internet einen Code gefunden, mit dem man Exceltabellen per SQL filtern und die Daten in ein Array speichern kann (siehe Link): https://vbatrainer.de/ado-einfuehrung/

Mein Recorset besteht aus mehreren Datensätzen. Nun möchte ich das Array in einer Listbox eines Userforms widergeben. Dazu mache ich einfach.

Listbox1.List = arr

Soweit klappt das auch. Allerdings werden die Daten eines einzelnen Datensatzen nicht wie erwartet nebeneinander sondern untereinander angezeigt. Der nächste Datensatz folgt dann eine Spalte weiter rechts usw.

Leider bietet das Recordset-Objekt keine GetColumns-Methode. Also hab ich versucht das mit Application.Transpose zu lösen:

arr2 = Application.Transpose(arr)

Allerdings kommt dann bei mir ein Laufzeitfehler 13: Typen unverträglich. Weiß jemand wieso? Beide Arrays sind bei mir vom Typ Variant deklariert.

Gruß Mr. K.