Modellbasiertes Logistikmanagement - Prof. Dr. Heinz-Michael ...

Crash-Kurs in Excel VBABei der Verwendung von WorksheetFunction bietet der Editor Hilfestellungen fürdie Auswahl der Funktionen und deren Argumente an.Application ist vorteilhaft für den Zweck der Abwärtskompatibilität von Excel-Versionen und für die Rückgabe von Fehlerwerten.‘ ohne EditierhilfePublic Sub Average_Beispiel1()Dim Bereich As RangeSet Bereich = Sheets("Tabelle1").Range("A1:A10")MsgBox Application.Average(Bereich)End Sub‘ mit EditierhilfePublic Sub Average_Beispiel2()Dim Bereich As RangeSet Bereich = Sheets("Tabelle1").Range("A1:A9")MsgBox WorksheetFunction.Average(Bereich)End SubPublic Sub Average_Beispiel3()Dim Bereich As RangeSet Bereich = Sheets("Tabelle1").Range("A1:A8")MsgBox Application.WorksheetFunction.Average(Bereich)End SubA.4.4.3VBA-Befehle für die Zellenbelegung in ArbeitsblätternValue: Eintrag eines absoluten Wertes‘ Die Zelle B1 erhält den Wert der FunktionSub Average_Value()Dim Bereich As RangeSet Bereich = Sheets("Tabelle1").Range("A1:A10")Cells(1,2).Value = WorksheetFunction.Average(Bereich)End SubFormula: Eintrag einer Formel mit absolutem Zellbezug‘ Die Zelle B2 erhält die Formel =MITTELWERT(A1:A10)‘ Die Bereichsangabe erfolgt absolutSub Average_AbsoluteFormel()Range("B2").Formula = "=AVERAGE(A1:A10)"End Sub69