Hallo Leute,
wer kann mir bei meinen bescheidenen VBA-Anfängen helfen?
Mit nachfolgendem Code möchte ich in jedem Tabellenblatt die Zellen A1:A3 summieren.
Nach dem Durchlauf aller Blätter soll die Gesamtsumme in Tabelle1-Zelle B1 reingeschrieben werden.
Sub Summenbildung()
Dim l, i As Integer
Dim Zähler As Long
Dim Zelle
i = 1
Worksheets("Tabelle1").Activate
Range("A1").Select
For l = 1 To Worksheets.Count
Worksheets(l).Select
For i = 1 To 3
If IsNumeric(Cells(i)) And Cells(i) <> "" Then
Cells(i).Value = Zähler
End If
Next i
Zähler = Zähler + Cells(i).Value
Next l
Worksheets("Tabelle1").Activate
Range("B1").Value = Zähler
End Sub
Was stimmt hier nicht?
Vielen Dank
MikeS
Hallo Mike
mal Deinen Ansatz als Grundlage
Sub Summenbildung()
Dim l, i As Integer
Dim Zähler As Long
For l = 1 To Worksheets.Count
With Worksheets(l)
For i = 1 To 3
If IsNumeric(.Cells(i, 1)) And .Cells(i, 1) <> "" Then
Zähler = Zähler + .Cells(i, 1).Value
End If
Next i
End With
Next l
Worksheets("Tabelle1").Range("B1") = Zähler
End Sub
Gruß Hajo
Vielen Dank Hajo, funktioniert bestens.
Ciao MikeS
