DruckversionWeitere Iterationen
Abweisende (kopfgesteuerte) Schleife
Im Beispiel Die_größte_Zahl3 im Modul Zyklen der Lösungsdatei 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.
Code:
'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 'Zeilennummer mit dem größten merken
End If
I = I + 1 'nächste Zeile suchen
Loop
'Schleifenende
Die gesamte Prozedur können Sie zunächst schrittweise testen.
Die Eigenschaften Interior.ColorIndex hinterlegt die gefundene Zelle gelb und Font.Bold stellt den daneben stehenden Name fett dar.
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied