Gruppe
UDF
Problem
Aus Verpackungsabmessungen sollen über eine gemeinsame benutzerdefinierte Funktion Kubatur und qm Außenfläche errechnet werden.
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