linear Interpolieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo nochmal,
binde doch mal folgenden Code in ein standardmodul ein (quick and dirty):
Option Explicit


Sub matrix_berechnen()
Dim matrix() As Double
Dim erg_matrix() As Double
Dim ii%
Dim text As String
'Einlesen der Matrizen
ii = 1
Do While Cells(ii, 1) <> ""
ReDim Preserve matrix(1 To 2, 1 To ii)
If ii = 1 Then
matrix(1, ii) = Cells(ii, 1)
matrix(2, ii) = Cells(ii, 2)
ii = ii + 1
ElseIf Cells(ii, 1) > matrix(1, ii - 1) Then
matrix(1, ii) = Cells(ii, 1)
matrix(2, ii) = Cells(ii, 2)
ii = ii + 1
Else
MsgBox "Spalte A nicht streng monoton steigend"
Exit Sub
End If
Loop
ii = 1
Do While Cells(ii, 3) <> ""
ReDim Preserve erg_matrix(1 To 2, 1 To ii)
If Cells(ii, 3) <= matrix(1, UBound(matrix, 2)) And _
Cells(ii, 3) >= matrix(1, 1) Then
erg_matrix(1, ii) = Cells(ii, 3)
erg_matrix(2, ii) = berechneY(matrix, erg_matrix(1, ii))
ii = ii + 1
Else
MsgBox "Wert in Spalte C nicht im Definitionsbereich"
Exit Sub
End If
Loop
For ii = 1 To UBound(erg_matrix, 2)
text = text & erg_matrix(1, ii) & ":" & erg_matrix(2, ii) & Chr(10)
Cells(ii, 4) = erg_matrix(2, ii)
Next ii
MsgBox "Erg:" & Chr(10) & text
End Sub


Function berechneY(matrix() As Double, wert As Double) As Double
Dim jj%
For jj = 1 To UBound(matrix, 2)
If wert = matrix(1, jj) Then
berechneY = matrix(2, jj)
Exit Function
ElseIf wert < matrix(1, jj + 1) Then
Exit For
End If
Next jj
berechneY = matrix(2, jj) + (wert - matrix(1, jj)) * (matrix(2, jj + 1) - matrix(2, jj)) / (matrix(1, jj + 1) - matrix(1, jj))
End Function

Vielleicht trifft das ja deine Vorstellungen besser?
Gruß Ingo
PS eine Rückmeldung wäre nett...

Hallo Ingo,
vielen Dank für Deine unverminderte Bereitschaft mein Problem zu lösen. Die Lösung die Du mir zuletzt angeboten hast ist o.k. aber so weit war ich selbst auch schon. Ich erkläre mein immer noch bestehendes Problem am besten an der datei die Du mir geschickt hast.In Spalte A sind die X-Werte und in Spalte B die Y-Werte, die die Ausgangsdaten liefern,dieskann so bleiben und ist o.k.. Dann habe ich wie von Dir vorgegeben in Spalte C die Werte für die der dazugehörige Y-Wert gesucht wird. In meinem Fall habe ich hier 3000 Werte. Aber ich habe nicht nur einmal diesen Fall für den ich interpoliern möchte sondern 4000 dieser Fälle. Nun ist klar das ich die interploierten Werte wie in Spalte D einfach bestimmen kann. Aber ich habe ja 4000 dieser Fälle. Excel hat aber nur 256 Spalten und ich will mein Bsp. in einer Tabelle unterbringen. Ach die Dimension kann ich nicht ändern, denn wenn ich meine interploierten Werte in die Zeilen schreibe recht dies zwar aus aber jetzt bin ich ja wieder mit den SPalten beschränkt. Letztendlich bräuchte ich eine Tabelle die 3000 Spalten und 4000 Zeilen oder umgekehrt hat. Somit habe ich mir gedacht, wenn das interpolierte Ergebis in einem Zwischenspeicher bleibt (ein Feld in Excel)dann könnte man ja mit diesen Werten immer das Summenprodukt mit einem anderen Zahlenbereich ermittelt, denn letztendlich bräuchte ich dann nur 4000 Felder für meine Lösungen denn eine Zwischnausgabe der interpolierten Werte gibt es nicht!
Vielleicht kannst Du mir ja diesen Fall löse, da gibt es sicherlich einen ANsatz in Excel bloß ich bin nicht so geübt um diesen Fall zu lösen.
Danke für die Hilfe

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread