Übergabe von Argumenten an Funktion
Argumenten
wie muss ich folgende Funktion umschreiben, damit die Argumente gemischt sowohl als Zellen (also Range) als auch in Textform (also String) an die selbstgeschriebene Funktion übergeben werden können:
Beispielcode der Funktion in Modul 1, bei der die Argumente ausschließlich als Range
übergeben werden können:
Option Explicit
Function Verketten2(ParamArray Werte() As Variant) As String
Dim Argument As Variant, Zelle As Variant
For Each Argument In Werte()
For Each Zelle In Argument
Verketten2 = Trim(Verketten2 & " " & Zelle.Value)
Next Zelle
Next Argument
End Function
Es soll also möglich sein die Argumente zum Beispiel in dieser Form zu übergeben:
=Verketten2(A13:F13;G13;Textangabe;H13)
Ich sollte vielleicht noch erwähnen, dass es sich hier um eine Verständnisfrage handelt. Bei der Original Verketten-Funktion von Excel können Zellen und Text ebenfalls gemischt als Argumente übergeben werden ( allerdings keine Zellbereiche). Ich will also einfach nur lernen.
Schöne Grüße
Martin
Anzeige