Variable Summenfunktionen per Makro

Computer: Software & Programmierung Office Software
1

Hallöchen,

es wäre super, wenn mir jemand bei der Erstellung des folgenden Makros helfen könnte:

In der Zeile, in der sich der Cursor befindet, soll in den Spalten D, F, H, J, L, N, P, R alles abwärts von Zeile 8 aufsummiert werden.

Bsp: Ist eine Zelle in Zeile 14 ausgewählt, dann soll per Makro folgendes eingetragen werden:
D14 = SUMME(D8:smiley:13)
F14 = SUMME(F8:F13)
H14 = SUMME(H8:H13)
… usw.

Wenn möglich, dann sollten die neu entstandenen Zellen eingefärbt werden (D,F in grün & H,J,L,N,P,R in gelb)

Hier das Beispiel: http://www.sleepers-inc.de/downloads/extern/Statisti…

Vielen Dank für Eure Hilfe!

Gruß Daniel

2

warum Makro?
warum kopierst Du nicht einfach die Formel?
wäre doch viel einfacher…

und wenn Du die 8 fixieren willst, dann stell einfach ein $ Zeichen davor also so:
=SUMME(c$8:c15)

wenn sich die Formel nach unten verschiebt bleibt der start bei 8 und das Ende wandert weiter runter…

3

Hallo!

Die Statistik ist so aufgebaut, dass per Makro bei bedarf weitere Spieler untereinander eingefügt werden. Die Zeile in der die Summe steht, wird somit immer wieder überschrieben. Daher sollte das neue Makro die Zeile mit der Summe entsprechend einfügen.

Wäre super, wenns dafür eine Lösung geben würde!

4

Hallo Daniel.

Das Folgende ist nur das Grundgerüst für eine Spalte, aber vielleicht reicht das ja schon, damit Du den Code für die anderen Spalten ableiten kannst.

Private Anzahlspieler As Long 'In den Deklarationsabschnitt
Private Gesamt As Long 'In den Deklarationsabschnitt
Private ErsteZeile As Long 'In den Deklarationsabschnitt

Sub Summenzeile\_Nach\_Unten()
 ErsteZeile = 8
 Anzahlspieler = 6 'Das muß hier weg und im Makro zum Einfügen von Spielern hochgezählt werden
 Gesamt = 4 'Spalte D
 Cells(ErsteZeile + Anzahlspieler, Gesamt).ClearContents
 Cells(ErsteZeile + Anzahlspieler, Gesamt).Borders(xlEdgeTop).LineStyle = xlNone
 Cells(ErsteZeile + Anzahlspieler + 1, Gesamt).FormulaR1C1 = "=SUM(R[-" & Anzahlspieler + 1 & "]C:R[-1]C)"
 Cells(ErsteZeile + Anzahlspieler + 1, Gesamt).Interior.ColorIndex = 35
 Cells(ErsteZeile + Anzahlspieler + 1, Gesamt).Borders(xlEdgeTop).LineStyle = xlContinuous
 Cells(ErsteZeile + Anzahlspieler + 1, Gesamt).Borders(xlEdgeTop).Weight = xlThin
 Cells(ErsteZeile + Anzahlspieler + 1, Gesamt).Borders(xlEdgeTop).ColorIndex = xlAutomatic
End Sub

Viele Grüße
Carsten

5

Warum so umständlich?
Wenn Du im Makro, das die Werte anhängt einfach eine Zeile einfügst bleibt die Formel aktuell…
Die Formel überschreiben und neu hinschreiben ist doppelter Aufwand…

6

Die Statistik ist so aufgebaut, dass per Makro bei bedarf
weitere Spieler untereinander eingefügt werden. Die Zeile in
der die Summe steht, wird somit immer wieder überschrieben.
Daher sollte das neue Makro die Zeile mit der Summe
entsprechend einfügen.
Wäre super, wenns dafür eine Lösung geben würde!

Hi Daniel,
warum ein neues, zweites Makro? Poste mal den Code des Spielereinfügmakros…
Gruß
Reinhard