Hallo Experten,
ich möchte eine Access Tabelle in ein Excel Array laden um es dort weiter zu verarbeiten.
Die Verbindung zur AccessDb mittels DAO funktioniert einwandfrei ebenso das laden der Tabelle in ein Array. Bei der Ausgabe des Arrays in eine ListBox sind die Daten leider vertauscht. Die Datensätze werden in der ListBox nicht horizontal sondern Spalten ausgegeben. Eine andere Methode zum befüllen des Array funktioniert richtig macht Probleme wenn das Datenfeld in Access leer ist.
Variante 1 ( Daten werden geladen sind bei der Ausgebe vertauscht. )
Das Laden mit :
With rs
.MoveFirst
varArray = .GetRows(.RecordCount)
End With
Die Ausgabe mit :
With UserForm3.ListBox1
.ColumnCount = 5
.ColumnWidths = "7cm;7cm;7cm;7cm;7cm;"
.ColumnHeads = True
.List() = varArray
.ListIndex = .ListCount - 1
End With
Die Datensätze stehen in Spalten.
Variante 2 ( Das Daten laden macht Probleme wenn ein Feld leer ist sonst funktioniert es und wird korrekt ausgegeben. )
i = 1
Do While Not rs.EOF
varArray(i, 1) = rs!Spalte1
varArray(i, 2) = rs!Spalte2
varArray(i, 3) = rs!Spalte3
varArray(i, 4) = rs!Spalte4
varArray(i, 5) = rs!Spalte5
i = i + 1
rs.MoveNext
Loop
Die Ausgabe wie in Variante 1.
Ich hoffe, dass ich mein Anliegen nachvollziehbar darstellen konnte und bin für jeden Tipp dankbar und stehe für Nachfragen gern zur Verfügung.
Vielen Dank im Voraus
Mathisen