wie kann man ein zweidimensionales Array gezielt mit einem mal in ein Tabellenblatt schreiben?
Das Array (Array(10,5)) soll auf Tabelle1 in Zelle A10 anfangen.
Gruß Lupus
Tabelle1 | ||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||
Tabelle1 | ||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||
Public Sub Arraytest()
Dim intArray(1 To 10) As Integer, intIndex As Integer
For intIndex = 1 To 10
intArray(intIndex) = intIndex
Next
Worksheets(1).Range("A1:J1").Value = intArray
Worksheets(1).Range("A1:A10").Value = WorksheetFunction.Transpose(intArray)
End Sub
Sub CopyTest()
Dim b(3) As Single
b(0) = 100: b(1) = 200: b(2) = 300: b(3) = 100
ActiveSheet.Shapes.AddLine b
End Sub