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