addieren positiver Werte

Forumthread: addieren positiver Werte

27.08.2007 11:43:00

Norman

Hallo Leute,
ich habe eine Exceltabelle in der sich Höhenangaben zu Wegpunkten befinden. Ich möchte nun die Höhenmeter (also die Meter des Anstiegs addieren). Dazu ein kleines Beispiel:
Pkt;Höhe (NN);
1; 650
2; 642
3; 752
4; 942
D.h. von Wegpunkt 1 zu 2 geht es bergab - also keine "Höhenmeter". Von Pkt. 2 auf 3 sind es hingegen 90m; von 3 auf 4 nochmal 190. In der Summe habe ich also 280 hm zurück gelegt. Da ich nun aber wesentlich mehr Wegpunkte habe möchte ich dies automatisieren. Wei mache ich das einfach, schnell und zuverlässig.
(https://www.herber.de/bbs/user/45410.xls)
Schon mal vorab DANKE

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: addieren positiver Werte

27.08.2007 11:51:00

Iris
AW: addieren positiver Werte

27.08.2007 11:52:00

Iris
AW: addieren positiver Werte

27.08.2007 11:52:29

Marian
AW: addieren positiver Werte

27.08.2007 13:01:00

Striker
und wenn Dich eine VBA Lösung interessiert ...

27.08.2007 14:06:00

Matthias

AW: addieren positiver Werte

27.08.2007 11:51:00

Iris

Hi Norman,
angenommen Pkte stehen in Spalte A und NN in Spalte B und los gehts in Zeile 2.
Dann steht in B2: 0
und in B3:=WENN(A3-A2>0;B2+(A3-A2);B2)
und das müsstest Du runterkopieren können...
Viel Erfolg beim virtuellen Wandern! Iris

AW: addieren positiver Werte

27.08.2007 11:52:00

Iris

Sorry, ersetze
A durch B
und B durch C!!!!
Dann steht in C2: 0
und in C3:=WENN(B3-B2>0;C2+(B3-B2);C2)

AW: addieren positiver Werte

27.08.2007 11:52:29

Marian

Hallo Norman,
Angenommen Punkt 1 ist in Zelle A1 und Punkt 2 in Zelle A2 etc. Dann schreibst du in die Zelle B1 folgende Formel:
=WENN(A2>A1;A2-A1;0)
und zuunterst kannst du dann die Summe der Spalte B nehmen.
gruss,
Marian

AW: addieren positiver Werte

27.08.2007 13:01:00

Striker

Hey Norman
Hier habe ich deine Datei einmal bearbeitet... Hast Du es Dir ungefähr so vorgestellt... :
https://www.herber.de/bbs/user/45416.xls
Gruß Sebastian
P.S. Feedback ist immer toll...

und wenn Dich eine VBA Lösung interessiert ...

27.08.2007 14:06:00

Matthias

Hallo
VBA-Lösung für diese Beispieldatei


Sub Hoehenmeter()
Dim x As Long, j As Long, zE As Long
zE = Cells(Rows.Count, 4).End(xlUp).Row
MsgBox " Berechnung wird berücksichtigt bis Zeile " & zE
For x = 2 To zE
If Cells(x, 4) > Cells(x - 1, 4) Then j = j + Cells(x, 4) - Cells(x - 1, 4)
Next
MsgBox "Zurückgelegte Höhe = " & Format(j, "#,##") & " Meter"
End Sub

Userbild

Beliebteste Forumthreads (12 Monate)

Forumthread: addieren positiver Werte

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread