VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Benutzerdefinierte Funktion als Matrixformel

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

    


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