Option Explicit
Public Sub ReadInData()
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
Tabelle1.ListBox1.List() = astrArray()
End Sub
Public Sub ReadOutData()
With Tabelle1.ListBox1
Tabelle1.Cells(1, 1).Resize(.ListCount, .ColumnCount).Value = .List()
End With
End Sub