Target.address für Excel 2007

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Luschi:

Function VIndex(Bezug, Optional ByVal ElementNr = 0)
Dim isArr As Boolean, isRange As Boolean, ix As Long, vx
On Error Resume Next
isRange = TypeName(Bezug) = "Range"
If Not isRange Then isArr = IsArray(Bezug)
If isArr And CBool(ElementNr) Then
For Each vx In Bezug
ix = ix + 1: If ix = ElementNr Then Exit For
Next vx
If Not IsEmpty(vx) Then
If isRange Then Set VIndex = vx Else VIndex = vx
Else: VIndex = CVErr(xlErrNA)
End If
Else: If isRange Then Set VIndex = Bezug Else VIndex = Bezug
End If
End Function

Diese UDF kann in Analogie zu INDEX sowohl ZellBereiche als auch Datenfelder verarbeiten und gibt dann auch Bereichsbezüge oder Werte zurück. Allerdings ist sie als reine Demo auf Vektoren beschränkt, was zur Darstellung des Prinzips ja auch ausreicht.
Wenn man dort jetzt noch .Value unterbringen wollte, würde die UDF mit Datenfeldern nicht mehr fktionieren.
Einfachster Test in einer ZellFml:
&bullet; Für ganzen Bereich {=VIndex(A1:A5)}
&bullet; Für ganzes Datenfeld mit Texten bzw Zahlen …
… {=VIndex(""&A1:A5)} bzw {=VIndex(--A1:A5)}
&bullet; Für einzelne Werte aus Bereich =VIndex(A$1:A$5;ZEILE(A1))
&bullet; Für einzelne Werte aus Datenfeld mit Texten bzw Zahlen …
… =VIndex(""&A$1:A$5;ZEILE(A1)) bzw =VIndex(--A$1:A$5;ZEILE(A1))
Luc :-?

…Luschi,
nur muss man dann für eine in ZellFmln einsetzbare UDF alle EinzelTeile unter einem Namen wieder zusammenführen. Wenn man das in einem AddIn oder gar COM-AddIn stationiert, ist das ja auch kein Problem. Nur kann man so etwas kaum in einem Forum und auf einer WebSite auch nur als Komplett-DownLoad anbieten. Das macht dann beinahe noch mehr Arbeit, die idR bezahlt sein will. Also habe ich mich bei UDFs überwiegend auf All-in-one-Lösungen konzentriert. Ältere UDFs greifen schonmal aufeinander zu und es war eine ziemliche NachArbeit*, erst einmal festzustellen, welche davon betroffen sind und welche man dann - bei überschaubarer Anzahl solcher QuerVerbindungen - unbesorgt in einem eigenen Auszug-AddIn zusammenfassen kann.
* Musste dafür extra ein Doku-Pgm schreiben und für die dazugehörige CHM-Hilfe auch noch eine Fkt, die gekürzte Texte aus einer MsgBox-SchnellHilfe in ungekürzte für erstere transformiert, damit es etwas weniger (Neu-)BetextungsAufwand wird. Und das war längst nicht alles…
Ansonsten viel Erfolg! ;-)
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread