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