Startseite

Kleinster und größter Wert

Auf dieser Seite zeige ich, wie man mit einem Makro den kleinsten und den größten Wert innerhalb einer Tabellenzeile ermitteln kann. Wenn eine der beiden Auswertungszeilen im Makro entfernt wird, bekommt man dann nur den kleinsten bzw. größten Wert.
Das Ergebnis:
Das Makro zum Kopieren:
Sub kleinster_größter_wert()
' Ermittelt den kleinsten und den größten Wert einer Tabelle mit Zahlen
' Klaus-Dieter Oppermann
z = 2                                                                     ' Startzeile für Schleife
Do While Cells(z, 1) <> ""                                                ' Start Schleife (läuft solange Zelle nicht leer)
    Cells(z, 7) = Workbooks.Application.Small(Range("a" & z, "f" & z), 1) ' kleinsten Wert ermitteln
    Cells(z, 8) = Workbooks.Application.Large(Range("a" & z, "f" & z), 1) ' größten Wert ermitteln
    z = z + 1                                                             ' Schleifenzähler
Loop                                                                      ' Wendepunkt für Schleife
End Sub                                                                   ' Ende des Makros