NextSheet & BackSheet (VBA)

Martin Asal @, Montag, 10.12.2018, 16:25 (vor 106 Tagen) @ Mk0

Wenn ich dich richtig verstanden habe, geht es also darum, die Summe aller Zellen "O2" zu berechnen, usw.

Das klappt wie folgt:

Public Function Sum3D(Zelle As Range)
Dim i As Integer, Ergebnis
 
For i = 1 To ActiveWorkbook.Sheets.Count - 1
    Ergebnis = Ergebnis + ActiveWorkbook.Sheets(i).Range(Zelle.Address)
Next
Sum3D = Ergebnis
 
End Function

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum