Vergleichoperator durch Bezug

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Public Function machs(ParamArray vnta() As Variant) Dim objScriptControl As Object Dim strExecuteString As String Set objScriptControl = CreateObject(Class:="ScriptControl") strExecuteString = Join(vnta, "") With objScriptControl .Language = "VBScript" .AddCode "Dim ReturnValue" .ExecuteStatement "ReturnValue = " & strExecuteString machs = .Eval("ReturnValue") End With End Function Der Aufruf ist ganz einfach: Tabelle1

…André,
die beiden gleichnamigen UDFs sind nur zu primitiv, um deine (erweiterte?) Anforderung erfüllen zu können; sie sind nicht matrixfml-fähig!
Im Grunde genommen erfüllt die xlStandardFkt VERKETTEN schon mal genau den 1.Teil deiner Anforderung, denn sie verbindet auch mehrere Vektoren elementweise untereinander bzw mit einem Skalar. Für den 2.Teil, die Auswertung, kannst du dann entweder die alte XLM-Fkt AUSWERTEN, die nur in einer benannten Fml verwendet wdn kann (→Namen definieren, Fml im Bezug eintragen!), oder eine leistungsfähige UDF auf der Basis der vbFkt Evaluate (wie im folgd Bsp) benutzen:
{=SUMME(D5:D9*MTRANS(Compute(VERKETTEN(E5:E9;G5;H5))))} °/
Diese UDF wird im Herber-Archiv nur erwähnt, da sie von mir noch nicht freigegeben wurde. Aber man kann eine UDF wie zB Luschis Variante oder im Archiv enthaltene einfachere entsprd umbauen bzw erweitern.
Bei Bedarf kann ich das übernehmen, ist nicht schwer, nur etwas aufwendiger. Dafür kann dann die vbFkt Join entfallen. Solche Kombinationen mag ich in einfachen Fällen ohnehin nicht sonderlich, denn sie verwischen als InselLösungen den Blick auf das Wesentliche.
°/Für Interessenten: MTRANS ist hier erforderlich, weil Compute stets einen horizontalen Vektor erzeugt.
Gruß, Luc :-?

…UDF geschrieben, André,
mit der du dein Ziel auch in einer 1zelligen MatrixFml erreichen kannst:
{=SUMME(D5:D9*LetText(VERKETTEN(E5:E9;G5;H5)))}
Dazu das folgende UDF-Pgm in ein allgemeines Modul kopieren!

Rem MxFmlFäh UDF ermittelt Ergebnis v.Ausdrücken (Fmln) in Textform
'   Vs1.0(2) -LSr -cd:20150104 -1pub:20150104herber -lupd:20150104t
Function LetText(Bezug)
Dim sx As Long, sz As Long, zx As Long, zz As Long, bez, erg As Variant
On Error GoTo fx
If IsArray(Bezug) Then
If TypeName(Bezug) = "Range" Then
With WorksheetFunction
bez = .Transpose(.Transpose(Bezug))
End With
Else: bez = Bezug
End If
On Error Resume Next
If IsError(LBound(bez, 2)) Then
On Error GoTo fx: zz = 1: sz = UBound(bez) + 1 - LBound(bez)
Else: On Error GoTo fx
zz = UBound(bez, 1) + 1 - LBound(bez, 1)
sz = UBound(bez, 2) + 1 - LBound(bez, 2)
End If
ReDim erg(zz - 1, sz - 1)
For Each Bezug In bez
If IsError(Bezug) Then
erg(zx, sx) = Bezug
Else: erg(zx, sx) = Evaluate(CStr(Bezug))
End If
zx = (zx + 1) Mod zz: sx = sx - CInt(zx = 0)
Next Bezug
LetText = erg
ElseIf IsError(Bezug) Then
LetText = Bezug
Else: LetText = Evaluate(CStr(Bezug))
End If
fx: If CBool(Err.Number) Then LetText = CVErr(xlErrNull)
End Function

Luc :-?

Beliebteste Forumthreads (12 Monate)

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread