Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen UDF und Matrix