Lineare Interpolation

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter
Nehmen wir mal an das sind deine Werte:
Tabelle1

	A
1	81
2
3
4
5
6
7
8
9
10
11
12
13
14	602
15
16
17
18
19	240
20
21
22	617
23
24
25	994
26
27
28
29
30
31
32
33
34
35
36	192
37
38
39
40	785

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Dann könnte man das mit VBA z.B. so lösen:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub machs()
    Dim rngBereich As Range, rngLeerzellen As Range, rngzelle As Range
    Dim dblOben As Double, dblUnten As Double, dblDifferenz As Double
    On Error Resume Next
    Set rngBereich = Sheets("Tabelle1").Range("A1:A10000").Cells.SpecialCells(xlCellTypeBlanks) 'Anpassen
    On Error GoTo 0
    If rngBereich Is Nothing Then Exit Sub

    For Each rngLeerzellen In rngBereich.Areas
        dblOben = rngLeerzellen(1).Offset(-1, 0).Value
        dblUnten = rngLeerzellen(rngLeerzellen.Count).Offset(1, 0).Value
        dblDifferenz = (dblUnten - dblOben) / (rngLeerzellen.Count + 1)
        For Each rngzelle In rngLeerzellen
            With rngzelle
                .Value = .Offset(-1, 0).Value + dblDifferenz
            End With
        Next
    Next

End Sub

Ausgabe ist dann dies:
Tabelle1

	A
1	81
2	121,076923
3	161,153846
4	201,230769
5	241,307692
6	281,384615
7	321,461538
8	361,538462
9	401,615385
10	441,692308
11	481,769231
12	521,846154
13	561,923077
14	602
15	529,6
16	457,2
17	384,8
18	312,4
19	240
20	365,666667
21	491,333333
22	617
23	742,666667
24	868,333333
25	994
26	921,090909
27	848,181818
28	775,272727
29	702,363636
30	629,454545
31	556,545455
32	483,636364
33	410,727273
34	337,818182
35	264,909091
36	192
37	340,25
38	488,5
39	636,75
40	785

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Der Code ist in etwa das was Lukes Formeln auch machen.
ransi

Hallo Luc, hallo Ransi,
danke Euch beiden für eure Rückmeldung.
Deine Variante Luc ist grundsätzlich auch ein guter Ansatzt und wäre für mich mit Sicherheit die einfachere Variante. Leider sind Datensätze sehr lang (bis zu 1.700 Zeilen). Nach deinem Ansatz müsste ich die Formeln immer wieder anpassen, oder täusche ich mich?
Ransi, vielen Dank für die Programmierung. Bleibt der Code auch so bestehen, falls sich die Anzahl der Leerzeilen zwischen den Ausgangswerten nicht verändert? Es also z.B. konstant 20 Zeilen sind (die Anzahl der Leerzeilen verändert sich nur zwischen den Dateien, nicht aber innerhalb eines Datensatzes).
Nun kommt noch leider der Zeitpunkt an dem ich mich als absoluter Noob outen muss. Ich weiß leider nicht, wo und wie ich diesen Code eingebe. Natürlich habe ich bereits versucht mich schlau zu machen, bin aber auf verschiedene Varianten gestoßen, von denen keine funktioniert hat. Auch an dieser Stelle bitte ich Euch noch einmal um Eure Unterstützung.
Schöne Grüße
Peter

Beliebteste Forumthreads (12 Monate)

	A
1	81
2
3
4
5
6
7
8
9
10
11
12
13
14	602
15
16
17
18
19	240
20
21
22	617
23
24
25	994
26
27
28
29
30
31
32
33
34
35
36	192
37
38
39
40	785

	A
1	81
2
3
4
5
6
7
8
9
10
11
12
13
14	602
15
16
17
18
19	240
20
21
22	617
23
24
25	994
26
27
28
29
30
31
32
33
34
35
36	192
37
38
39
40	785

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A
1	81
2
3
4
5
6
7
8
9
10
11
12
13
14	602
15
16
17
18
19	240
20
21
22	617
23
24
25	994
26
27
28
29
30
31
32
33
34
35
36	192
37
38
39
40	785