Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte sichtbar ausgeben

Werte sichtbar ausgeben
20.04.2006 22:03:00
Tom
Hallo zusammen,
wie bekomme ich es hin, das meine Formel Interpolieren_Spalten_linear_Matrix auch die gesamten Werte sihtbar ausgibt!!!
Siehe meine Beispieldatei!
https://www.herber.de/bbs/user/33013.xls
Vielen Dank für schnelle Hilfe!
Die Codes für die Fuktionen hier:

Function Interpolieren_Spalten_linear_Matrix(X_Werte As Object, Y_Werte As Object, X As Variant)
Dim rng As Range
Dim y
Dim i%
ReDim y(1 To X.Cells.Count)
For Each rng In X.Cells
i = i + 1
y(i) = Interpolation_Spalten_linear(X_Werte, Y_Werte, rng)
Next
Interpolieren_Spalten_linear_Matrix = y
End Function

Public

Function Interpolation_Spalten_linear(X_Werte As Object, Y_Werte As Object, X As Variant) As Double
Dim n As Long, ind As Long, i As Long
n = X_Werte.Rows.Count
If X < X_Werte(1) Then
Interpolation_Spalten_linear = Y_Werte(1)
ElseIf X > X_Werte(n) Then
Interpolation_Spalten_linear = Y_Werte(n)
Else
For i = 1 To n
If X_Werte(i) <= X Then
ind = ind + 1
Else
ind = ind
End If
Next
Dim X1 As Variant, X2 As Variant, Y1 As Double, Y2 As Double
X1 = X_Werte(ind)
X2 = X_Werte(ind + 1)
Y1 = Y_Werte(ind)
Y2 = Y_Werte(ind + 1)
Interpolation_Spalten_linear = (Y1 * (X2 - X) + Y2 * (X - X1)) / (X2 - X1)
End If
End Function

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte sichtbar ausgeben
21.04.2006 06:42:35
Tom
Danke für die Hilfe, aber ich möchte ja nun gern meine Werte als Array-Formel ausgeben!
Also das hilft mir nicht weiter!
AW: Werte sichtbar ausgeben
22.04.2006 01:35:42
MichaV
Hallo,
musst die Ergebnis- Matrix vorher um 90° drehen.
=MTRANS(Interpolieren_Spalten_linear_Matrix(B2:B5;C2:C5;B7:B10))
(Zellen C7:C10 markieren und obige Formel in C7 eingeben, als Matrixformel abschließen)
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: Werte sichtbar ausgeben
22.04.2006 10:33:28
EtoPHG
Hallo Tom,
Statt Michas Lösung mit MTRANS Formel, ersetze diesen Code:

Function Interpolieren_Spalten_linear_Matrix(X_Werte As Object, Y_Werte As Object, X As Variant)
Dim rng As Range
Dim y
Dim i%
ReDim y(1 To X.Cells.Count, 1 To X.Cells.Count)
For Each rng In X.Cells
i = i + 1
y(i, 1) = Interpolation_Spalten_linear(X_Werte, Y_Werte, rng)
Next
Interpolieren_Spalten_linear_Matrix = y
End Function

Ein 1 dimensionaler Array ist grundsätzlich HORIZONTAL.
Indem Du ihn 2D machst erreichst Du eine Horizontale und vertikale Richtung.
Ich hoffe, damit hast Du was Du willst.
Noch als Tip: je mehr Threads zum gleichen Thema, desto kleiner die Wahrscheinlichkeit für Antworten ;-)
Gruss Hansueli
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige