Public Sub Teat() Dim SamletArray(3) As Variant, I As Integer, X As Integer SamletArray(0) = Array("Værdi 1", "værdi 2") SamletArray(1) = Array("Værdi 1", "værdi 2", "Værdi 3") SamletArray(2) = Array("Værdi 1", "værdi 2", "Værdi 3", "Værdi 4") SamletArray(3) = Array("Værdi 1", "værdi 2") For I = 0 To UBound(SamletArray) For X = 0 To UBound(SamletArray(I)) MsgBox "række " & I & "kolonne " & X & " = " & SamletArray(I)(X) Next Next End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.