Do
While
toloben < ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(startpos, 6) _
Or
tolunten > ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(startpos, 6)
oder
levelfinder = ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(Zeile, 4)
oder
Do
While
headoben < ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(start, 6) _
Or
headunten > ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(start, 6)
If
groben >= ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(start, 6)
And
_
grunten <= ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(start, 6)
Then
sum = sum + ActiveWorkbook.Worksheets(
"Datensatz"
).Cells(start, 4)
zaehler = zaehler + 1
und so weiter