Arrays über Range befüllen in Function

Hallo,
ich kniffel hier gerade seit einer Weile an einem Problem herum und komme einfach nicht weiter.
Ich habe eine große Tabelle in welcher ich über eine Funktion eine Art Zusammenfassung erstellen möchte. Viele Spalten davon sind lediglich mit Zahlen befüllt oder leer. Diese handhabe ich gerade so:
In der Tabelle: =fFunction(A2; B2; C3) Die Funktion:

function fFunction (a, b, c as integer) as string
dim strText
strText = "Zusammenfassung: "
if a  "" then
strText = strText & "(" & a & ")"
else
strText = strText & "-"
end if
if b  "" then
strText = strText & "(" & b & ")"
else
strText = strText & "-"
end if
if c  "" then
strText = strText & "(" & c & ")"
else
strText = strText & "-"
end if
fFunction = strText
end function

Ist es irgendwie möglich, dies über ein Array zu lösen?
Einlesen würde ich die Zellen gerne über eine Range um Variablen zu sparen, also so

=fFunction(A2:C2)

Das scheint er auch irgendwie aufzunehmen. Allerdings habe ich mangels Erfahrung an Array keine Ahnung, wie ich diese Daten jetzt innerhalb der Funktion verwenden kann!?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

function fFunction (a as range) as string dim strText strText = "Zusammenfassung: " for i = 1 to 3 if arr(i) "" then strText = strText & "(" & arr(i) & ")" else strText = strText & "-" end if next i fFunction = strText end function

Function fFunction(Bereich As Range) As String Dim strText As String Dim rng As Range strText = "Zusammenfassung: " For Each rng In Bereich If rng.Text <> "" Then strText = strText & "(" & rng.Text & ")" Else strText = strText & "-" End If Next fFunction = strText End Function

…nicht auch schon fertig, Sepp?
Was unterscheidet die also außer ihrer …Einweg-Verpackungsart“ von bereits vorhandenen Lösungen. Hättest du nur die vbFkt Join adaptiert, wär's mir zwar auch zu simpel gewesen, aber wenigstens etwas universeller. Du hättest wenigstens auf die Deklarierung von Arg1 As Range verzichten können. Das mache ich nämlich nur, wenn's unbedingt erforderlich ist. Aber als AWer meint ja so mancher, nichts auf erfahrungspraktische Lösungen geben zu müssen. Wer so etwas tut, muss damit rechnen, dass ich „meinen Senf“ dazugebe.
Ich gebe zwar zu, dass deine UDF anders aussieht als die gängigen (mal von den speziellen Spezifika abgesehen), aber muss denn die Anzahl der „Eintagsfliegen“, mit denen womöglich spätestens der Amtsnachfolger des Fragestellers nichts mehr anfangen kann, nur deshalb stetig vermehrt wdn?! Das Netz ist ohnehin schon voll von so etwas (und manche PCs sicher auch).
Viele behaupten ja, dass das Lernen in einem Forum von Gegenseitigkeit geprägt ist. Davon merke ich hier allerdings nur wenig…
Nichts für ungut! Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
1	1	2	3		5		7
2
3
4
5	Zusammenfassung: (1)(2)(3)-(5)-(7)
6
7

Arrays über Range befüllen in Function

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread