|
Hallo,
so drei Schinkenstullen und ne heiße Brühe später...;-) ... ich geh jetzt mal von ner ActiveX-Listbox in einer Tabelle aus: Setz dazu im Eigenschaftsfenster der Box die ColumnCount -Eigenschaft auf 3, dann folgender Code, entsch. ist eigentl nur die Schreibproc ReadOutData, da ich nicht weiß, wie Du Dein Daten einliest, ist die Lese-Proc nur als Bsp, aber wir haben dann ja drei Spalten am Start.....
Option Explicit
Public Sub ReadInData() '// Nur als Bsp.Daten....
Dim astrArray(9, 2) As String
Dim ialngColumn As Long, ialngRow As Long
For ialngColumn = 0 To UBound(astrArray, 2)
For ialngRow = 0 To UBound(astrArray, 1)
astrArray(ialngRow, ialngColumn) = "Test" & ialngColumn & ialngRow
Next
Next
Tabelle1.ListBox1.ColumnCount = 3 '// am besten im Eigenschaftsfenster setzen, hier nur als Bsp.
Tabelle1.ListBox1.List() = astrArray()
End Sub
Public Sub ReadOutData() '// Deine eigentl. SchreibProc in die Tabelle, nur nen Einzeiler..;-)
With Tabelle1.ListBox1
Tabelle1.Cells(1, 1).Resize(.ListCount, .ColumnCount).Value = .List()
End With
End Sub
Gruß,
|