Microsoft Excel

Herbers Excel/VBA-Archiv

Summe mit For-Schleife

Betrifft: Summe mit For-Schleife von: Viola
Geschrieben am: 28.08.2004 20:39:48

Hallo Experten,

sitze jetzt seit Stunden an einem Makro und krieg es einfach nicht hin. Ich habe viele Spalten nebeneinander (dynamisch generiert; Anzahl der Spalten verändert sich). In einem neuen Sheet möchte ich jetzt jeweils Zwischensummen für jede Spalte berechnen lassen. Exemplarisch für die erste Spalte im neuen Sheet:

Zelle 1: A1
Zelle 2: A1 + A2
Zelle 3: A1 + A2 + A3
usw...

Mein Code sieht folgendermaßen aus: (für 1. Spalte habe 2. For Schleife damit jede Spalte durchlaufen wird=

For r = 1 To Reihen - 1 Step 1

With CARs
.Cells(r + 6, s + 3).Select
ActiveCell.FormulaR1C1 = "=SUM(Range(Cells(1,1),Cells(r,1))"
End With
Next r

Ich habe alles definiert usw. Aber trotzdem meckert er bei "=Sum...".

Wie lautet der richtige Syntax???

Vielen lieben Dank

Viola

  


Betrifft: AW: Summe mit For-Schleife von: Piet
Geschrieben am: 28.08.2004 21:04:30

Ohne den Rest auf Stimmigkeit getestet zu haben, ist = "=SUM(Range(Cells(1,1),Cells(r,1))"
keine FormulaR1C1, einfach nur Formula

Piet


  


Betrifft: AW: Summe mit For-Schleife von: nighty
Geschrieben am: 28.08.2004 22:41:51

hi Viola :)

wie gewuenscht :)

gruss nighty

einzufuegen alt f11(vbeditor)/einfuegen/modul


Sub suchen()
Dim zaehler1 As Long
Range("A1:A65535").Clear
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
zaehler2 = zaehler2 + Sheets(1).Cells(zaehler0, 1)
Sheets(2).Cells(Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = zaehler2
Next zaehler0
End Sub



  


Betrifft: AW: Summe mit For-Schleife von: nighty
Geschrieben am: 28.08.2004 22:46:36

hi Viola :)

korrigiert :)

gruss nighty

Sub suchen()
Dim zaehler1 As Long
Sheets(2).Range("A1:A65535").Clear
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
zaehler2 = zaehler2 + Sheets(1).Cells(zaehler0, 1)
Sheets(2).Cells(Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = zaehler2
Next zaehler0
End Sub



  


Betrifft: AW: Summe mit For-Schleife von: nighty
Geschrieben am: 28.08.2004 22:53:10

hi alle :)

zaehler0 und zaehler2 muessen als long deklariert sein,geh jetzt auch schlafen :)

dim zaehler0 as long
dim zaehler2 as long

gruss nighty


  


Betrifft: AW: Summe mit For-Schleife von: IngoG
Geschrieben am: 29.08.2004 10:53:40

Hallo Viola,

excel kennt ddie function cells nicht deshalb sollte es mE heißen:

...= "=SUM("a1:a" & r & ")" für spalte a

bzw

...="=sum(" & cells(ii,1).address & ":" & cells(ii,r).address & ")" füt spalte ii

Gruß Ingo
PS eine Rückmeldung wäre nett...


  


Betrifft: AW: Summe mit For-Schleife von: andre
Geschrieben am: 29.08.2004 11:00:04

Hallo Viola,
schaue mal hier:
https://www.herber.de/forum/index.htm?https://www.herber.de/forum/messages/476950.html