Also nochmal mit dem Firefox:

Hallo BigBen,

Mit dem Wert Höhenänderung_Korrektur/% aus Werteliste2 soll der Wert Höhenänderung/% korrigiert werden.

d.h. Höhenänderung(Werteliste1) - Höhenänderung_Korrektur(Werteliste2) zum Zeitpunkt Außentemperatur

Beispiel:

Werteliste1:
Außentemperatur 31,5°C
Höhenänderung/% -0,041

Werteliste2:
Temperatur1: 31,40°C
Höhenänderung_Korrektur/%_1: -0,002
Temperatur2: 31,70°C
Höhenänderung_Korrektur/%_2: -0,002

Der Wert für die Außentemperatur (31,5°C) und damit der Wert für die Höhenkorrektur ist in der Werteliste2 nicht vorhanden, deshalb soll dieser aus den beiden Datensätzen (Temperatur1 & Temperatur2 sowie Höhenänderung_Korrektur/%_1 & Höhenänderung_Korrektur/%_2) mittels Geradengleichung interpoliert werden. Um an diese Werte zu kommen, versuche ich aus der Werteliste2 den jeweils nächst niedrigeren, sowie nächst höheren Wert zu finden, mit diesem Makro:

Sub grossklein()

Dim lzeile As Long
Dim dklein As Double
Dim dgross As Double
Dim letztezeile As Long

letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox letztezeile
With ThisWorkbook.Worksheets("Tabelle1")
    For j = 1 To 3388
        If Trim(.Range("F" & j).Value) <> "" Then
            If IsNumeric(.Range("F" & j).Value) Then
                For lzeile = 2 To 4000
                    If CDbl(.Range("F" & j).Value) >= CDbl(Worksheets("Korrektur-Werte").Cells(lzeile, 2).Value) Then
                        dklein = CDbl(Worksheets("Korrektur-Werte").Cells(lzeile, 2).Value)
                    End If
                    If CDbl(.Range("F" & j).Value) <= CDbl(Worksheets("Korrektur-Werte").Cells(lzeile, 2).Value) Then
                        dgross = CDbl(Worksheets("Korrektur-Werte").Cells(lzeile, 2).Value)
                        Exit For
                    End If
                Next lzeile
            End If
        End If
        Range("I" & j).Value = dklein
        Range("J" & j).Value = dgross
    Next j
    End With
End Sub

Werteliste 1:

Werteliste 2: