Nabend zusammen,
diesmal komm ich mit einer etwas "einfacheren" Frage aber dennoch scheitere ich. Zunächst mein Code, kurz und knapp
letzteZeile = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
MsgBox letzteZeile
For zeile = 5 To letzteZeile
Cells(zeile + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(zeile, 5), Cells(zeile + 1, nächstfreieZellefipa - 2)))
zeile = zeile + 3
Next
Wie zu erkennen errechne ich an dieser Stelle jeweils Summen mit sich änderen Bereichen. Meine Frage ist eigentlich nur die, wie schaffe ich es / wie bekommt man es hin, dass sich der Zellwert "Cells(zeile + 1, 2).Value" dynamisch verändert, wenn sich innerhalb des Bereichs irgendeine Änderung ergibt?
Ich habe hier auch schon im Forum mal Hilfe von einem freundlichen Menschen bekommen. Ich glaube der Ansatz lautet: Private Sub Worksheet_Change? Kann das sein? Allerdings weiß ich nicht wie ich das so recht verbauen soll :S ? Könnte mir jemand unter die Arme greifen? Den hier geposteten Code möchte ich eigentlich unangetastet lassen, da er einwandfrei funktioniert. ALlerdings funktioniert er auch nur wenn ich das Makro ausführe. Dies möchte ich eigentlich unterbinden.
|