#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!

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-) Profilfoto: Miriam blitzt - Miriam Mehlman Fotografie - www.miriammehlman.at
Dieser Beitrag wurde unter Excel, VBA abgelegt und mit , , , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit deinem WordPress.com-Konto. Abmelden /  Ändern )

Facebook-Foto

Du kommentierst mit deinem Facebook-Konto. Abmelden /  Ändern )

Verbinde mit %s