#Maximum aus einem #Bereich mit #VBA ermitteln

Heut gibt’s wieder einmal VBA – die lustige Programmiersprache, mit der Sie in Office nahezu alles automatisieren können.

Die aktuelle Anforderung: Welches Datum ist in einem bestimmten Bereich das größte?

In Excel verwenden Sie für die Beantwortung so einer Frage die Funktion MAX. Schreiben Sie aber MAX in VBA, so werden Sie nicht verstanden. Das muss also anders gehen … und zwar so:

Public Sub Datum_Max()

Dim DatBis As Date
Set dWs = Worksheets("Datenbasis")
DatBis = Application.WorksheetFunction.Max(dWs.Range("Datum"))
...
Set dWs = Nothing
End Sub

Zur Erklärung: es gibt ein Worksheet, das Datenbasis heißt. Auf diesem gibt es einen Bereich, der Datum heißt. Mit Application.WorksheetFunction.Max(dWs.Range(„Datum„)) fordern wir nun Excel auf, seine eingebaute Funktion Max anzuwenden, und zwar auf den Bereich Datum des Worksheets dWs (das wir vorher als das Worksheet Datenbasis definiert haben). Das Ergebnis wird uns in die Variable DatBis geschoben, wo wir es auch haben wollen.

Mit WorksheetFunction können Sie natürlich auch andere Excel-Funktionen in VBA ausführen, und ja, auch den SVERWEIS – allerdings unter seinem Geburtsnamen VLOOKUP – probieren geht über Studieren!