Schleifen auch ohne Laufanweisung möglich?
01.02.2005 10:16:12
Jan
Ist es möglich die unten aufgeführte Schleife ohne die Anweisung a = a + 1 zum Laufen zu bringen?
Danke im Voraus sagt Jan
Sub BRI_Do_Loop()
Dim a As Long
Dim Ergebnis As Double
With Worksheets("Daten")
'nimmt Referenz auf Tabellenblatt "Daten"
a = 5
'beginne in Zeile 5
Höhe = Range("GESCHOSSHÖHE").Value
'der Höhe wird der Konstante Wert Geschosshöhe zugewiesen
Do While a < 270
'wiederholt Do Loop Schleife bis Zeile 269
Ergebnis = Ergebnis + .Cells(a, 16)
Ergebnis = Ergebnis + .Cells(a, 10)
'den Ergebnisen wird jeweils der nächste Zellwert hinzugerechnet
a = a + 1
'springt eine Zeile tiefer
Loop
'Wiederholung der Schleife
'Next
Ergebnis = Ergebnis * Höhe
'Ergebnis wird mit der Höhe multiplieziert
Sheets("Makros").Cells(10, 6).Value = Ergebnis
'zuweisen der Ergebniszelle
Worksheets("Makros").Select
'öffnet das Tabellenblatt "Makros"
End With
End Sub