Zellenbezüge mit "For Next" Schleife
07.11.2003 12:01:52
Florian
Mittels einer "For Next" Schleife würde ich gerne Zellbezüge erstellen, weiss aber leider nicht so genau wie das geht.
Die Zelle D2 soll den in Zelle N1 stehenden Wert übernehmen. Dann soll D3 den Wert von O1 und so weiter (D4-P1; D5-O1...), solange Werte im Bereich N1:IV1 vorhanden sind.
Hab mir mal einen Code zusammengezimmert, wäre spitze wenn mir jemand auf die Sprünge helfen könnte!
Sub Try()
For i = 14 To 243
If Cells(1, i).Value <> 0 Then
Range("D2").Select
ActiveCell.FormulaR1C1 = Cells(1, i).Value
ActiveCell.Offset(1, 0).Range("d2").Select
ActiveCell.FormulaR1C1 = Cells(1, i+1).Value
Next
End Sub
Schöne Grüße,
Florian