Dim i As Long, j As Long
 
  For i = LBound(Feld, 1) To UBound(Feld, 1)
    For j = LBound(Feld, 2) To UBound(Feld, 2)
      Debug.Print CStr(Feld(i, j))
    Next j
  Next i

Gruss,

Zardoz

  List1.AddItem CStr(Feld(i, j))

  Dim Txt As String
 
  Txt = ""
  For i = LBound(Feld, 1) To UBound(Feld, 1)
    For j = LBound(Feld, 2) To UBound(Feld, 2)
      Txt = Txt & CStr(Feld(i, j)) & vbCrLf
    Next j
  Next i
  Text1.Text = Txt

Gruss,

Zardoz

  ' für TextBox
  Dim Txt As String
 
  Txt = ""
  For i = LBound(Feld, 1) To UBound(Feld, 1)
    For j = LBound(Feld, 2) To UBound(Feld, 2)
      Txt = Txt & Feld(i, j) & " "
    Next j
    Txt = Txt & vbCrLf
  Next i
  Text1.Text = Txt

Gruss,

Zardoz

Const FieldLength As Integer = 12
 
Dim x As String
x = "abcde"
 
Dim l As Integer
l = Len(x)
If l < FieldLength Then
   x = Space(FieldLength - l) & x
End If

Txt = Txt & x & " "

Private Sub ListDemo()
 
Dim rows%, columns%
rows = 5: columns = 3 'Anzahl der Zeilen und Spalten (=Arraygrenzen)
 
'Array erstellen und mit Testdaten füllen
ReDim arr(1 To rows, 1 To columns) As String
Dim i, k As Integer
For i = 1 To rows
   For k = 1 To columns
      arr(i, k) = String(i, "a") & String(k, "b")
   Next k
Next i
 
 
ListView1.View = lvwReport
 
'Spaltenköpfe erstellen
ListView1.ColumnHeaders.Add , , "Zeile", 2000
For i = 1 To columns
   ListView1.ColumnHeaders.Add , , "SP" & CStr(i), 2000
Next i
 
'Array-Elemente in Listview1 eintragen
Dim lvi As ListItem
For i = 1 To rows
   Set lvi = ListView1.ListItems.Add(, , "Zeile" & CStr(i))
   For k = 1 To columns
      lvi.ListSubItems.Add , , arr(i, k)
   Next k
Next i
 
End Sub