Thema Datum  Von Nutzer Rating
Antwort
12.06.2018 15:26:22 sthasari
Solved
12.06.2018 17:54:08 Mackie
NotSolved
13.06.2018 10:14:52 Gast52830
NotSolved
Blau jede 3. Zeile Summen bilden?
 12.06.2018 18:24:17 RPP63
NotSolved
13.06.2018 10:14:36 Gast39933
NotSolved

Ansicht des Beitrags:
Von:
RPP63		 Datum:
12.06.2018 18:24:17		 Views:
353		 Rating:
     
Antwort:
  Ja
Thema:
jede 3. Zeile Summen bilden?

Moin!

Erst wird ein Bereich aller Formeln gebildet und dann auf einen Rutsch in alle entsprechenden Zellen geschrieben:

Sub RPP()
Dim i&, rng As Range
With Tabelle1
Set rng = .Range(.Cells(10, 5), .Cells(10, 13))
For i = 13 To .Cells(.Rows.Count, 5).End(xlUp).Row Step 3
  Set rng = Union(rng, .Range(.Cells(i, 5), .Cells(i, 13)))
Next
End With
rng.FormulaR1C1 = "=R[-2]C+R[-1]C"
End Sub

Gruß Ralf

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
12.06.2018 15:26:22 sthasari
Solved
12.06.2018 17:54:08 Mackie
NotSolved
13.06.2018 10:14:52 Gast52830
NotSolved
Blau jede 3. Zeile Summen bilden?
 12.06.2018 18:24:17 RPP63
NotSolved
13.06.2018 10:14:36 Gast39933
NotSolved