Thema Datum  Von Nutzer Rating
Antwort
Rot Code Wiederholung
01.07.2022 17:11:30 Gast31395
NotSolved
02.07.2022 12:51:29 Gast23356
NotSolved
04.07.2022 09:32:44 Gast47475
NotSolved
04.07.2022 10:34:03 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Gast31395
Datum:
01.07.2022 17:11:30
Views:
183
Rating: Antwort:
  Ja
Thema:
Code Wiederholung

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ß


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Code Wiederholung
01.07.2022 17:11:30 Gast31395
NotSolved
02.07.2022 12:51:29 Gast23356
NotSolved
04.07.2022 09:32:44 Gast47475
NotSolved
04.07.2022 10:34:03 ralf_b
NotSolved