Im Beispiel Die_größte_Zahl3 im Modul Zyklen der Lösungsdatei Lösung Steueranweisungen und Felder.xlsm erfolgt die Prüfung zu Beginn des Zyklus. In einer Spalte wird als Kriterium zeilenweise geprüft, ob die aktuelle Zelle nicht leer bzw. 0 ist. Wenn die aktuelle Zelle 0 oder leer ist, wird der Zyklus verlassen.

'Prüfung
Do While Worksheets("Umsätze"). _
Cells(I, 3) <> 0
If Größte < _
Worksheets("Umsätze").Cells(I, 3) Then
    Größte = Worksheets("Umsätze")._
    Cells(I, 3) 'ein neuer größter
    Zeile = I 'Zeilennr. mit größtem
End If
I = I + 1 'nächste Zeile suchen
Loop
'Schleifenende

Die gesamte Prozedur können Sie zunächst schrittweise testen. Die Eigenschaft Interior.ColorIndex hinterlegt die gefundene Zelle gelb und Font.Bold stellt den daneben stehenden Namen fett dar.