Ich habe einen 1-dimensionalen Array. Dessen Inhalt möchte ich nun in eine bestimmte Spalte ab Zeile 1 schreiben.
Wie mache ich das ohne Loop?
Gruß Joschi.
Sub ArrayToCell()
Dim SP As Integer, Z1 As Integer, Arr
SP = 2
Z1 = 1
'Beisp
Arr = Array("A", "B", "C", 12)
Sheets("Tabelle1").Cells(Z1, SP).Resize(UBound(Arr) + 1) = WorksheetFunction.Transpose(Arr)
End Sub
LG UweD