Microsoft Excel

Herbers Excel/VBA-Archiv

Addition per VBA ohne Formel



Excel-Version: 8.0 (Office 97)

Betrifft: Addition per VBA ohne Formel
von: MikeS
Geschrieben am: 05.06.2002 - 21:02:45

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

  

Re: Addition per VBA ohne Formel
von: Hajo
Geschrieben am: 05.06.2002 - 21:14:07

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


  

Re: Addition per VBA ohne Formel
von: MikeS
Geschrieben am: 06.06.2002 - 07:24:53

Vielen Dank Hajo, funktioniert bestens.

Ciao MikeS


 

Beiträge aus den Excel-Beispielen zum Thema "Addition per VBA ohne Formel"