Frage?
13.10.2004 13:34:03
Martin
Ich habe folgendes Makro
Sub Werte()
Dim i As Integer, n1 As Integer, n2 As Integer
n1 = 2: n2 = n1 + 25
For i = 1 To Range("L1").Value
With Worksheets("Parameter")
.Range(Cells(n1, 9), Cells(n2, 9)).Copy Destination:=Worksheets("Page_" & i).Range("A6")
.Range(Cells(n1, 10), Cells(n2, 10)).Copy Destination:=Worksheets("Page_" & i).Range("B6")
.Range(Cells(n1, 6), Cells(n2, 6)).Copy Destination:=Worksheets("Page_" & i).Range("C6")
.Range(Cells(n1, 7), Cells(n2, 7)).Copy Destination:=Worksheets("Page_" & i).Range("D6")
.Range(Cells(n1, 2), Cells(n2, 2)).Copy Destination:=Worksheets("Page_" & i).Range("E6")
.Range(Cells(n1, 3), Cells(n2, 3)).Copy Destination:=Worksheets("Page_" & i).Range("F6")
.Range(Cells(n1, 4), Cells(n2, 4)).Copy Destination:=Worksheets("Page_" & i).Range("G6")
.Range(Cells(n1, 5), Cells(n2, 5)).Copy Destination:=Worksheets("Page_" & i).Range("H6")
.Range(Cells(n1, 1), Cells(n2, 1)).Copy Destination:=Worksheets("Page_" & i).Range("I6")
.Range(Cells(n1, 8), Cells(n2, 8)).Copy Destination:=Worksheets("Page_" & i).Range("J6")
End With
n1 = n1 + 26: n2 = n1 + 25
Next i
End Sub
In der zelle L1 steht eine zahl die ich vorher berechne.
Ist es jetzt möglich die errechnete zahl in den Quellcode zu integrieren das mann an stelle von For i = 1 To Range("L1").Value sonder gleich For i = 1 to (Die zahl die in der Zelle steht)
z.B. For i = 1 to 27
Die zahl die in for i = 1 to 27 steht soll aber immer aus der zelle L1 in die schleife eingebunden werden
geht das wenn ja wie?
der dank kommt schonmal im vorraus
Gruß sagt Martin
Anzeige