Array
06.07.2006 17:09:02
Gregor
Ich möchte mit einem Array die Zeilen und Spalten festlegen, um Daten in die entsprechende Zellen zu kopieren.
Soweit mein Versuch (Auszug aus Prozedur)
Sub test()
Dim Start As Integer
Dim Zeile As Variant, Spalte As Variant
For Start = 0 To 7
Zeile = Array(1, 1, 44, 44, 23, 23, 66, 66)
Spalte = Array(1, 15, 1, 15, 1, 15, 1, 15)
Worksheets("Zeitplanung").Range(Cells(1, 2), Cells(20, 14)).Copy
Workbooks("Test.xls").Activate: Worksheets("Zeitplanung").Select
Cells(Zeile, Spalte).Select
ActiveSheet.Paste
Next Start
End Sub
Ich erhalte die Fehlermeldung Typen unverträglich. Ich habe es auch schon mit Integer versucht oder die Array-Angaben in Klammer gesetzt.
Was ist hier falsch, sollte nach meinem Verständnis zumindest möglich sein.
Liebe Grüsse
Gregor