Array in Zeilen
24.02.2006 23:48:10
Elke
folgendes Makro funzt nicht:
Sub Copybereich()
Dim ArrayFM
ArrayFM = Array("155", "158", "165", "170", "175", "195", "200", "205")
Range(Cells(2, 10), Cells(UBound(ArrayFM) + 2, 10)) = ArrayFM
End Sub
So schreibt er in jede Zeile die 155, ich will aber in jeder Zeile eine andere Zahl
Wie muss ich mein Makro umbauen?
Liebe Grüsse
Elke
Anzeige