Mal angenommen deine Variable vX ist folgendermaßen dimensioniert (hier mit ein paar Beispielwerten befüllt):
ReDim vX(1 To 2, 1 To 3) As Variant
vX(1, 1) = 1
vX(1, 2) = 2
vX(1, 3) = 3
vX(2, 1) = 4
vX(2, 2) = 5
vX(2, 3) = 6
Mit Einfügepunkt B19 auf dem Tabellelblatt "Angebotslayout":
With Worksheets("Angebotslayout").Range("B19")
.Resize(UBound(vX, 1), UBound(vX, 2)).Value = vX
End With
ergibt:
Grüße
|