Gruppe
UDF
Bereich
Matrix
Thema
Benutzerdefinierte Funktion als Matrixformel
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