Variable Schleife ???
28.10.2004 17:41:15
ralle
Ich habe nachfolgendes Problem und ich hoffe Ihr könnt mir helfen.
Habe zwei Tabellenblätter in einer Arbeitsmappe.
Tabellenblatt 1 ist eine Maske in der Daten eingetragen werden müssen. Die Daten kommen dabei aus einer Tabelle im Tabellenblatt 2.
In diesem Beispiel hat die Tabelle im 3 Zeilen beginnend ab Zeile 2.
Für das eintragen der Daten habe ich nun nachfolgendes Makro.
Sub Test()
Dim intC As Integer
For intC = 2 To 4
Sheets(1).Range("C6") = Sheets(2).Cells(intC, 1)
Sheets(1).Range("B3") = Sheets(2).Cells(intC, 2)
Sheets(1).Range("C3") = Sheets(2).Cells(intC, 3)
Sheets(1).Range("C5") = Sheets(2).Cells(intC, 4)
Sheets(1).Range("C10") = Sheets(2).Cells(intC, 5)
Sheets(1).Range("C9") = Sheets(2).Cells(intC, 6)
Sheets(1).Range("C4") = Sheets(2).Cells(intC, 7)
Sheets(1).Range("C8") = Sheets(2).Cells(intC, 8)
Sheets(1).Range("F8") = Sheets(2).Cells(intC, 9)
Sheets(1).Copy After:=Sheets(Sheets.Count)
Next
End Sub
Wie muß ich dieses Makro ändern, damit es solange die Schleife durchläuft. soviel wie Zeilen in der Tabelle vom Tabellenblatt 2 genutzt werden.
Es stehen Daten z.B. in zwei Zeilen, ein anderesmal aber in 20 Zeilen.
Es müsste irgendwie so aussehen:
For intC = 2 To VARIABEL
Wie mache ich soetwas????
Gruß
ralle