Hallo,
ich habe folgendes Problem:
Ich habe eine Tabelle in der u.a. die Länge (Spalte 4) und eine Bedingung (Spalte 25) steht.
Die Bedingung ist mal erfüllt (>=0) oder mal nicht erfüllt (=-1).
Sobald die Bedingung erfüllt ist, soll die Summe über alle nacheinander folgenden Längen gebildet werden,
bis die Bedingung nicht mehr erfüllt ist.
Bsp.
Abschnitt Länge Bedingung Ergebnis
1 10 -1 (nicht erfüllt) 0
2 15 1 (erfüllt) 20 (15+5)
3 5 1 (erfüllt) 20 (15+5)
4 6 -1 (nicht erfüllt) 0
5 5 1 (erfüllt) 5
6 20 -1 (nicht erfüllt) 0
Das ganze soll über die gesammte Tabelle laufen (Abschnitt 1 bis 1000).
Ich komme da grad nicht weiter und weiß nicht wie ich das lösen kann.
Sub Kreuzungen ()
Dim SatzNr as Integer
Dim i As Integer
Dim BewInd As String
BewInd = "Weiter"
i = 0
While Not BewInd = "Ende"
SatzNr=1
If Cells(SatzNr, 25) >= 0 Then
???
???
??
End If
'Die Liste solange durchsuchen bis nichts mehr im Abschnitt steht
SatzNr = SatzNr + 1
If Cells(SatzNr, 1) = "" Then
BewInd = "Ende"
i = i + 1
End If
Wend
End Sub
|