Do until schleife
24.02.2018 21:18:43
Potter
ich habe bislang den nachfolgenden Code erstellt.
Das Problem, das ich habe, es gelingt mir nicht die do while schleife zu formulieren.
Die Schleife soll solange laufen, bis in dem Zellbereich D7 bis D18 keine Leerzellen mehr sind.
Bzw. alle Zellen (D7 bis D18) von dem Code innerhalb der Do while Schleife gefüllt wurden.
Es wäre toll, wenn mir jemand helfen könnte.
Grüße,
Potter
Sub Bewertung()
Dim Bwert As Double
Dim Max As Double
Dim Rng As Range
Dim maxValue As Double
Dim cell As Range
Set Rng = Range("I7:I18")
'Do Until Range("D7:D18").Value ""
Bwert = WorksheetFunction.CountIf(Range("D7:D18"), "")
For Each cell In Rng
cell.Select
If cell.Value > maxValue And cell.Offset(0, -5) = "" Then maxValue = cell.Value
Next cell
Range("I7:I18").Find(What:=maxValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -5).Value = Bwert
' Loop
End Sub