Summenübertrag
05.11.2002 09:48:26
Bernd
ich will mit einem Makro die Werte aus x-Tabellen aufsummieren.
Leider veranstaltet das Makro nun eine Summenbildung, die in Zelle B3 einen Wert 5 ermittelt und dann in Zelle B4 einen Wert von 2 PLUS den Wert aus B3 und ewig so weiter.
Was ist falsch an dem Makro:
Private Sub calc()
Dim l As Long
Dim i As Integer
Dim i2 As Integer
Worksheets("Total_DE").Activate
i = 3
i2 = 2
For i2 = 2 To 7
For i = 3 To 12
Cells(i, i2).Activate
For l = 4 To ActiveWorkbook.Sheets.Count
If IsNumeric(Sheets(l).Cells(i, i2).Value) Then _
erg = erg + Sheets(l).Cells(i, i2).Value
End If
Cells(i, i2).Value = erg
Next l
Next i
Next i2
End Sub
Ich habe schon ewig gebraucht so weit zu kommen und hoffe ihr Superhelden könnt mir auch diesmal aus der Sackgasse helfen.
Besten Dank im voraus!
Gruss, Bernd
Anzeige