Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Benutzerdefinierte Funktion als Matrixformel

Gruppe

Matrix

Problem

Aus Verpackungsabmessungen sollen über eine gemeinsame benutzerdefinierte Funktion Kubatur und qm Außenfläche errechnet werden.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: Modul1

Function CbmAndQm(dL As Double, dW As Double, dH As Double) As Variant
   Dim arr(1 To 2) As Double
   arr(1) = dL * dW * dH
   arr(2) = ((dL * dW) + (dL * dH) + (dW * dH)) * 2
   CbmAndQm = arr
End Function

Sub Aufruf()
   Dim var As Variant
   var = CbmAndQm(Range("A2").Value, Range("B2").Value, Range("C2").Value)
   Range("D2").Value = var(1)
   Range("E2").Value = var(2)
End Sub