Hallo Zusammen,
ich habe eine Tabelle, deren Ergebniswerte sich je nach Filter ändern.
Die jeweiligen Ergebnisse möchte ich gerne in einer Tabelle daneben direkt abspeichern. Leider bin ich ein absoluter VBA-Neuling und habe keine Ahnung, wie ich den Code schreiben muss, damit er beim nächsten mal ausführen die freie Zeilen darunter nutzt :(
Also beim ersten mal sollen die Werte in dem Bereich M13:U13 erscheinen und beim erneuten Starten des Makros sollen die Werte entsprechend in Bereich M14:U14 usw. erscheinen.
Kann mir jemand sagen, wie dies funktioniert?
Sub Test1()
Range("B5").Copy
Range("M13").PasteSpecial xlPasteValues
Range("N13") = WorksheetFunction.Sum(Range("C13:C30"))
Range("O13") = WorksheetFunction.Sum(Range("D13:D30"))
Range("P13") = WorksheetFunction.Sum(Range("E13:E30"))
Range("Q13") = WorksheetFunction.Sum(Range("F13:F30"))
Range("R13") = WorksheetFunction.Sum(Range("G13:G30"))
Range("S13") = WorksheetFunction.Sum(Range("H13:H30"))
Range("T13") = WorksheetFunction.Sum(Range("I13:I30"))
Range("U13") = WorksheetFunction.Sum(Range("J13:J30"))
End Sub
Danke und Lieben Gruß
|