Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Delta Berechnung mit Schleife vereinfachen?
zurück: Verweis-Funktion in VBA, Anfängerfehler? weiter: in Worddatei schreiben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
schrauf187
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Jan 2009, 16:33
Rufname:
Wohnort: Reutlingen

Delta Berechnung mit Schleife vereinfachen? - Delta Berechnung mit Schleife vereinfachen?

Nach oben
       Version: Office 2003

Hallo,

Ich hab Folgende Tabelle

..O..........P...........Q
jan09...feb09...märz09
_____________________
10.........10...........20


Hier soll nun das Delta für Q berechnet werden

Q= 40, P=10, O=10

QDelta= 20


Ich hab dies wie folgt gelößt:

Code:


    'Delta Berechnung Mar09 - ( Jan09 + Feb09) (alle zeilen)
    Range("Q3").Value = Range("Q3").Value - (Range("P3").Value + Range("O3").Value)
    Range("Q4").Value = Range("Q4").Value - (Range("P4").Value + Range("O4").Value)
    Range("Q5").Value = Range("Q5").Value - (Range("P5").Value + Range("O5").Value)
    Range("Q6").Value = Range("Q6").Value - (Range("P6").Value + Range("O6").Value)
    Range("Q7").Value = Range("Q7").Value - (Range("P7").Value + Range("O7").Value)
    Range("Q8").Value = Range("Q8").Value - (Range("P8").Value + Range("O8").Value)
    Range("Q9").Value = Range("Q9").Value - (Range("P9").Value + Range("O9").Value)
    Range("Q10").Value = Range("Q10").Value - (Range("P10").Value + Range("O10").Value)
    Range("Q11").Value = Range("Q11").Value - (Range("P11").Value + Range("O11").Value)
    Range("Q12").Value = Range("Q12").Value - (Range("P12").Value + Range("O12").Value)
    Range("Q13").Value = Range("Q13").Value - (Range("P13").Value + Range("O13").Value)
    Range("Q14").Value = Range("Q14").Value - (Range("P14").Value + Range("O14").Value)
    Range("Q15").Value = Range("Q15").Value - (Range("P15").Value + Range("O15").Value)
    Range("Q16").Value = Range("Q16").Value - (Range("P16").Value + Range("O16").Value)
    Range("Q17").Value = Range("Q17").Value - (Range("P17").Value + Range("O17").Value)
    Range("Q18").Value = Range("Q18").Value - (Range("P18").Value + Range("O18").Value)
    Range("Q19").Value = Range("Q19").Value - (Range("P19").Value + Range("O19").Value)
    Range("Q20").Value = Range("Q20").Value - (Range("P20").Value + Range("O20").Value)
    Range("Q21").Value = Range("Q21").Value - (Range("P21").Value + Range("O21").Value)
    Range("Q22").Value = Range("Q22").Value - (Range("P22").Value + Range("O22").Value)
    Range("Q23").Value = Range("Q23").Value - (Range("P23").Value + Range("O23").Value)
    Range("Q24").Value = Range("Q24").Value - (Range("P24").Value + Range("O24").Value)
    Range("Q25").Value = Range("Q25").Value - (Range("P25").Value + Range("O25").Value)
    Range("Q26").Value = Range("Q26").Value - (Range("P26").Value + Range("O26").Value)
    Range("Q27").Value = Range("Q27").Value - (Range("P27").Value + Range("O27").Value)
    Range("Q28").Value = Range("Q28").Value - (Range("P28").Value + Range("O28").Value)
    Range("Q29").Value = Range("Q29").Value - (Range("P29").Value + Range("O29").Value)
    Range("Q30").Value = Range("Q30").Value - (Range("P30").Value + Range("O30").Value)
    Range("Q31").Value = Range("Q31").Value - (Range("P31").Value + Range("O31").Value)
    Range("Q32").Value = Range("Q32").Value - (Range("P32").Value + Range("O32").Value)
    Range("Q33").Value = Range("Q33").Value - (Range("P33").Value + Range("O33").Value)
    Range("Q34").Value = Range("Q34").Value - (Range("P34").Value + Range("O34").Value)
    Range("Q35").Value = Range("Q35").Value - (Range("P35").Value + Range("O35").Value)
    Range("Q36").Value = Range("Q36").Value - (Range("P36").Value + Range("O36").Value)
    Range("Q37").Value = Range("Q37").Value - (Range("P37").Value + Range("O37").Value)
    Range("Q38").Value = Range("Q38").Value - (Range("P38").Value + Range("O38").Value)
    Range("Q39").Value = Range("Q39").Value - (Range("P39").Value + Range("O39").Value)
    Range("Q40").Value = Range("Q40").Value - (Range("P40").Value + Range("O40").Value)
    Range("Q41").Value = Range("Q41").Value - (Range("P41").Value + Range("O41").Value)
    Range("Q42").Value = Range("Q42").Value - (Range("P42").Value + Range("O42").Value)
    Range("Q43").Value = Range("Q43").Value - (Range("P43").Value + Range("O43").Value)
    Range("Q44").Value = Range("Q44").Value - (Range("P44").Value + Range("O44").Value)
    Range("Q45").Value = Range("Q45").Value - (Range("P45").Value + Range("O45").Value)
    Range("Q46").Value = Range("Q46").Value - (Range("P46").Value + Range("O46").Value)
    Range("Q47").Value = Range("Q47").Value - (Range("P47").Value + Range("O47").Value)
    Range("Q48").Value = Range("Q48").Value - (Range("P48").Value + Range("O48").Value)
    Range("Q49").Value = Range("Q49").Value - (Range("P49").Value + Range("O49").Value)
    Range("Q50").Value = Range("Q50").Value - (Range("P50").Value + Range("O50").Value)
    Range("Q51").Value = Range("Q51").Value - (Range("P51").Value + Range("O51").Value)
    Range("Q52").Value = Range("Q52").Value - (Range("P52").Value + Range("O52").Value)
    Range("Q53").Value = Range("Q53").Value - (Range("P53").Value + Range("O53").Value)
    Range("Q54").Value = Range("Q54").Value - (Range("P54").Value + Range("O54").Value)
    Range("Q55").Value = Range("Q55").Value - (Range("P55").Value + Range("O55").Value)
    Range("Q56").Value = Range("Q56").Value - (Range("P56").Value + Range("O56").Value)
    Range("Q57").Value = Range("Q57").Value - (Range("P57").Value + Range("O57").Value)
    Range("Q58").Value = Range("Q58").Value - (Range("P58").Value + Range("O58").Value)
    Range("Q59").Value = Range("Q59").Value - (Range("P59").Value + Range("O59").Value)
    Range("Q60").Value = Range("Q60").Value - (Range("P60").Value + Range("O60").Value)
    Range("Q61").Value = Range("Q61").Value - (Range("P61").Value + Range("O61").Value)
    Range("Q62").Value = Range("Q62").Value - (Range("P62").Value + Range("O62").Value)
    Range("Q63").Value = Range("Q63").Value - (Range("P63").Value + Range("O63").Value)
    Range("Q64").Value = Range("Q64").Value - (Range("P64").Value + Range("O64").Value)
    Range("Q65").Value = Range("Q65").Value - (Range("P65").Value + Range("O65").Value)
    Range("Q66").Value = Range("Q66").Value - (Range("P66").Value + Range("O66").Value)
    Range("Q67").Value = Range("Q67").Value - (Range("P67").Value + Range("O67").Value)
    Range("Q68").Value = Range("Q68").Value - (Range("P68").Value + Range("O68").Value)
    Range("Q69").Value = Range("Q69").Value - (Range("P69").Value + Range("O69").Value)
    Range("Q70").Value = Range("Q70").Value - (Range("P70").Value + Range("O70").Value)
    Range("Q71").Value = Range("Q71").Value - (Range("P71").Value + Range("O71").Value)
    Range("Q72").Value = Range("Q72").Value - (Range("P72").Value + Range("O72").Value)
    Range("Q73").Value = Range("Q73").Value - (Range("P73").Value + Range("O73").Value)
    Range("Q74").Value = Range("Q74").Value - (Range("P74").Value + Range("O74").Value)
    Range("Q75").Value = Range("Q75").Value - (Range("P75").Value + Range("O75").Value)
    Range("Q76").Value = Range("Q76").Value - (Range("P76").Value + Range("O76").Value)
    Range("Q77").Value = Range("Q77").Value - (Range("P77").Value + Range("O77").Value)
    Range("Q78").Value = Range("Q78").Value - (Range("P78").Value + Range("O78").Value)
    Range("Q79").Value = Range("Q79").Value - (Range("P79").Value + Range("O79").Value)
    Range("Q80").Value = Range("Q80").Value - (Range("P80").Value + Range("O80").Value)
    Range("Q81").Value = Range("Q81").Value - (Range("P81").Value + Range("O81").Value)
    Range("Q82").Value = Range("Q82").Value - (Range("P82").Value + Range("O82").Value)
    Range("Q83").Value = Range("Q83").Value - (Range("P83").Value + Range("O83").Value)
    Range("Q84").Value = Range("Q84").Value - (Range("P84").Value + Range("O84").Value)
    Range("Q85").Value = Range("Q85").Value - (Range("P85").Value + Range("O85").Value)
    Range("Q86").Value = Range("Q86").Value - (Range("P86").Value + Range("O86").Value)
    Range("Q87").Value = Range("Q87").Value - (Range("P87").Value + Range("O87").Value)
    Range("Q88").Value = Range("Q88").Value - (Range("P88").Value + Range("O88").Value)
    Range("Q89").Value = Range("Q89").Value - (Range("P89").Value + Range("O89").Value)
    Range("Q90").Value = Range("Q90").Value - (Range("P90").Value + Range("O90").Value)
    Range("Q91").Value = Range("Q91").Value - (Range("P91").Value + Range("O91").Value)
    Range("Q92").Value = Range("Q92").Value - (Range("P92").Value + Range("O92").Value)
    Range("Q93").Value = Range("Q93").Value - (Range("P93").Value + Range("O93").Value)
    Range("Q94").Value = Range("Q94").Value - (Range("P94").Value + Range("O94").Value)
    Range("Q95").Value = Range("Q95").Value - (Range("P95").Value + Range("O95").Value)
    Range("Q96").Value = Range("Q96").Value - (Range("P96").Value + Range("O96").Value)
    Range("Q97").Value = Range("Q97").Value - (Range("P97").Value + Range("O97").Value)
    Range("Q98").Value = Range("Q98").Value - (Range("P98").Value + Range("O98").Value)
    Range("Q99").Value = Range("Q99").Value - (Range("P99").Value + Range("O99").Value)
    Range("Q100").Value = Range("Q100").Value - (Range("P100").Value + Range("O100").Value)
    Range("Q101").Value = Range("Q101").Value - (Range("P101").Value + Range("O101").Value)
    Range("Q102").Value = Range("Q102").Value - (Range("P102").Value + Range("O102").Value)
    Range("Q103").Value = Range("Q103").Value - (Range("P103").Value + Range("O103").Value)



Rechnet das delta für 100 Zeilen nach unten.

Ich muss das ganze jetzt natürlich noch für April, Mai usw weiterspinnen:

DeltaR = R - (O + P + Q)
DeltaT = T - (O + P + Q +R)

usw.

Jetzt zu meiner Frage kann man das ganze vielleicht eleganter lösen vielleicht mit einer schleife die bis 100 zählt oder so! Ich Persönlich mit meinen bescheidenen VBA skills habs nicht hingekriegt. Denn Sonst muss ich den 100zeiler für Feb - Dec schreiben! Und schnell Läuft das ganze leider auch nicht.

Danke im Voraus
MarkusNRW79
Gast


Verfasst am:
28. Jan 2009, 17:26
Rufname:


AW: Delta Berechnung mit Schleife vereinfachen? - AW: Delta Berechnung mit Schleife vereinfachen?

Nach oben
       Version: Office 2003

Also, ich weiß zwar nicht, was du da machst, aber deinen ganzen Code kannst du schon einmal so vereinfachen:

Sub test()
For i = 3 To 100 'Zeile 3 bis Zeile 100
Cells(i, 1).Value = Cells(i, 2).Value - (Cells(i, 3).Value + Cells(i, 4).Value)
Next i
End Sub

Vielleicht hilft das weiter Smile

LG
Markus
schrauf1877
Gast


Verfasst am:
29. Jan 2009, 11:16
Rufname:

AW: Delta Berechnung mit Schleife vereinfachen? - AW: Delta Berechnung mit Schleife vereinfachen?

Nach oben
       Version: Office 2003

Also wenn ich das mit meinen Zeilen angepasst funktioniert auch soweit.

Code:

 For i = 3 To 103 'Zeile 3 bis Zeile 100
    Cells(i, 17).Value = Cells(i, 17).Value - (Cells(i, 15).Value + Cells(i, 16).Value)
    Next i


Problem Zelle 3 wird nicht berechnet! oder Falsch?!?

für 180.000 - (10.000 + 10.000) berechnet er -20.000
schrauf1877
Gast


Verfasst am:
30. Jan 2009, 09:44
Rufname:


AW: Delta Berechnung mit Schleife vereinfachen? - AW: Delta Berechnung mit Schleife vereinfachen?

Nach oben
       Version: Office 2003

Ok fehler lag an mein Tabelle ... Alles funkt ... Danke!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Richtige Funktion zur Berechnung von Quintilen (Fünfteln)? 2 Iris 3295 16. Sep 2010, 10:54
neolein Richtige Funktion zur Berechnung von Quintilen (Fünfteln)?
Keine neuen Beiträge Excel Formeln: Formel Berechnung nach D Hondt - Bitte um Hilfe 4 Stasi2 19326 02. Sep 2009, 18:11
< Peter > Formel Berechnung nach D Hondt - Bitte um Hilfe
Keine neuen Beiträge Excel Formeln: Berechnung Alter auf Grundlage von Monat und Jahr (E2k) 7 Illuminat 11854 26. Mai 2008, 07:56
urs Berechnung Alter auf Grundlage von Monat und Jahr (E2k)
Keine neuen Beiträge Excel Formeln: Arbeitszeit Berechnung 9 KaMpfKeKs 23666 09. Jul 2007, 07:43
Thomas Ramel Arbeitszeit Berechnung
Keine neuen Beiträge Excel Formeln: automatische Berechnung stoppen 1 thalow 4267 07. Sep 2006, 08:51
myfake automatische Berechnung stoppen
Keine neuen Beiträge Excel Formeln: Wenn Funktion vereinfachen 4 Gast 583 06. Sep 2006, 08:13
Gast Wenn Funktion vereinfachen
Keine neuen Beiträge Excel Formeln: Vereinfachen einer WENN-Funktion 4 Kivi 1125 17. Aug 2006, 17:48
Kivi Vereinfachen einer WENN-Funktion
Keine neuen Beiträge Excel Formeln: Berechnung der Differenz von zwei Datumswerten auf Basis ... 7 scheffe 1431 10. Aug 2006, 14:50
scheffe Berechnung der Differenz von zwei Datumswerten auf Basis ...
Keine neuen Beiträge Excel Formeln: Berechnung der Uhrzeit 8 dasnordlicht28 1552 22. Jun 2006, 11:11
Klaus-Dieter Berechnung der Uhrzeit
Keine neuen Beiträge Excel Formeln: Berechnung Urlaub -kompliziert- 3 Läetitcia 14251 20. Jun 2006, 14:14
Steffl Berechnung Urlaub -kompliziert-
Keine neuen Beiträge Excel Formeln: Berechnung der Zellfarbe 5 schewardnadse 2731 05. Apr 2006, 16:35
Gast Berechnung der Zellfarbe
Keine neuen Beiträge Excel Formeln: Zinseszinsformel in Berechnung 4 underdogx 11453 21. Feb 2006, 22:51
fridgenep Zinseszinsformel in Berechnung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks