Schönen guten Tag lieber Gast,
schlag mich oder lass es :D Ich verstehe "so gut wie alles" aus deinem Text, auch wenn du den Part eigentlich schon sehr ausführlich formuliert hast, scheiter ich aktuell noch etwas an dem letzten Part des Codes:
'jetzt eintragen
' dazu wird aber ein andere Versatz gebraucht. Wir wissen ja, dass zeilesum die Zeile ist, in der die erste Summe eingetragen wird
'die zweite Summe dann eins tiefer.
' bei der Resten wie oben past dass nicht. Also ziehen wir eins ab.
'somit gilt bei den Zeilen von Spalte 5 beginnend einen Versat 0
' ab 6 beginnend Versatz 1 usw.
' Zeile ab 8 hat -1, da soll ja nix eingetragen werden.
' der GEdanke ist, zur zeilesum den neuen Versatz zu addieren und dann in der zeile zu sein, wo die Summe hi nsoll
' also versatz berechnen
versatz = (Target.Row Mod 4 - 1)
' wenn -1 dann nix ,ist ja immer die 4te Zeile
If versatz = -1 Then
Else
'jetzt also eintragen, zeilesum + versatz ergibt bei R5 beginend also zeilesum +0 = zeilesum, da wollte wir ja hin
' bie E6 beginnend ist versatz 1 also zeilesum +1 die nächste Zeile past auch , spalte ist immer noch die Spalte der Änderung
'also in die Zelle die SUmme eintragen
ActiveSheet.Cells(zeilesum + versatz, spalte) = summe
End If
dazu wird aber ein andere Versatz gebraucht. Wir wissen ja, dass zeilesum die Zeile ist, in der die erste Summe eingetragen wird
'die zweite Summe dann eins tiefer.
--> Check, verstanden
ab 6 beginnend Versatz 1 usw.
--> Check, Zeile 6 - da soll die Summe ja eine Reihe darunter eingetragen werden, verstanden
Zeile ab 8 hat -1, da soll ja nix eingetragen werden.
--> Verstanden und auch nicht. Ja in Zeile 8 soll nix eingetragen werden genau, ist ne leere Zeile in der nichts steht. Aber woher kommt die -1?
Du musst auf gar keinen Fall antworten. Es geht tatsächlich nur darum den Code in Gänze zu verstehen. Deine Erklärungen bzgl. MODULO EIN TRAUM! Damit konnte ich bereits ein anderes Problem lösen. Der ganze Code ist echt enorm mit Logik behaftet - du bist mein persönlicher Held, ehrlich!
|