Schleife
05.08.2005 09:11:50
Ramon
die folgenden Programmierzeilen, suchen aus den Zeilen 1 bis 4680 und Spalte C den Maximalwert aus jeder 13.Zeile heraus und schreiben diesen dann brav in die Zeile 4686 der gleichen Spalte.
Das ganze würde ich jetzt gerne fuer die Spalten D bis GU wiederholen, ich brauche also noch eine Schleife.Man muesste also das C in "Range("C"& i)"sowie das c in "[c4686]" durch eine Variable ersetzen was mir jedoch nicht gelingt. Kann mir jemand die Zeilen umschreiben...fuer Hilfe bin ich sehr dankbar...Gruss, Ramon
Sub u()
Dim maxl As Double
For i = 1 To 4680 Step 13
If Range("C" & i) > maxl Then maxl = Range("C" & i)
Next
[c4686] = maxl
End If
End Sub