Berechnungen

Forumthread: Berechnungen

Berechnungen

19.10.2006 13:56:31

snoopyine

Hallo zusammen,
brauche mal wieder eure Hilfe.
Folgendes Problem:
ich habe ein Tabelle aus drei Spalten. aus den letzten beiden spalten möchte ich für jede Zeile die Differenz berechnen (ABW. absolut und in %). Wie bekomme ich das hin das nur bis zu einer bestimmten Zeile gerechnet wird?
es soll bis zu der Zeile gerechnet, wo in der 1.Spalte bspw. der Wert "Ende" steht?
Bez. | Ist 1-10/2006 | Plan 1-10/2006 | Abw. | Abw. %
Schon jetzte danke !

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Berechnungen

19.10.2006 14:12:33

Specke
AW: Berechnungen

19.10.2006 14:16:17

jockel
AW: Berechnungen

19.10.2006 14:17:18

Lueckii
AW: Berechnungen

19.10.2006 14:25:02

UweD
AW: Berechnungen

19.10.2006 14:30:40

snoopyine
AW: Berechnungen

19.10.2006 14:37:09

UweD
AW: Berechnungen

19.10.2006 16:28:33

snoopyine

AW: Berechnungen

19.10.2006 14:12:33

Specke

Hallo snoopyine,
vielleicht mit einer wenn-Abfrage!?
wenn(A1"Ende";rechne;"")
Gruß Specke

AW: Berechnungen

19.10.2006 14:16:17

jockel

hi wer auch immer (snoopyine?), kannst du (d)eine beispieltabelle hochladen? cu jörg

AW: Berechnungen

19.10.2006 14:17:18

Lueckii

Tach!
Wenn du das in Ecxcel machst, kannst du doch in die Spalte
Abw.: =ABS(B2-B3) und in die Spalte
Abw. %: =ABS(B2/B3*100-100)
schreiben und das ganze einfach bis zum Ende der Tabelle runterkopieren.
ABS bezeichnet den absolutwert, also das Ergebnis ohne Vorzeichen. Wenn du wissen willst, ob die Abweichung positiv oder negativ ist, laß das ABS einfach weg
Gruß Martin

AW: Berechnungen

19.10.2006 14:25:02

UweD

Hallo
wichtig ist noch worauf die Prozentuale Abwicklung bezogen werden soll?
hier 3 Möglichkeiten.
Die Formeln kannst du einfach bis in Weite Ferne nach unten Kopieren...

	A	B	C	D	E	F	G
1	Text	Wert1	Wert2	Diff (absolut)	% bez. sich auf Spalte B	% bezieht sich auf Minimum	% bezieht sich auf Maximum
2	AAA	200	209	9	4,50%	4,50%	4,31%
3	BBB	209	200	9	4,31%
4						Oder	Oder

Formeln der Tabelle

D2 : =WENN(ODER(B2="";C2="");"";ABS(B2-C2))
E2 : =WENN(ODER(B2="";C2="");"";D2/B2)
F2 : =WENN(ODER(B2="";C2="");"";D2/MIN(B2:C2))
G2 : =WENN(ODER(B2="";C2="");"";D2/MAX(B2:C2))

Gruß UweD
(Rückmeldung wäre schön)

AW: Berechnungen

19.10.2006 14:30:40

snoopyine

danke für eure Bemühungen !
Habe es aber wie folgt gelöst:


Sub berechnen_Abweichung()
Dim i As Long
i = 2
Do Until ActiveSheet.Cells(i, 2) = ""
i = i + 1
Cells(i, 5).FormulaLocal = "=C" & i & "-D" & i
Cells(i, 6).FormulaLocal = "=C" & i & "/D" & i
Loop
Columns("E:E").Select
Selection.NumberFormat = "#,##0.00"
Columns("F:F").Select
Selection.NumberFormat = "0.00%"
End Sub

AW: Berechnungen

19.10.2006 14:37:09

UweD

Hallo
da fehlt ja wohl noch das absolut...
Gruß UweD

AW: Berechnungen

19.10.2006 16:28:33

snoopyine

nun enldich die überarbeite Datei


Sub berechnen_Abweichung()
Dim i As Long
i = 2
Do Until ActiveSheet.Cells(i, 2) = ""
i = i + 1
Cells(i, 5).FormulaLocal = "=C" & i & "-D" & i
If Cells(i, 4) = "" Then
Cells(i, 6) = 1
Else: Cells(i, 6).FormulaLocal = "=C" & i & "/D" & i & "-" & 1
End If
Loop
Columns(5).NumberFormat = "#,##0.00"
Columns(6).NumberFormat = "0.00%"
End Sub

Grüße

Beliebteste Forumthreads (12 Monate)

Forumthread: Berechnungen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread