Was Dein Mac kann oder nicht, kann ich nicht beurteilen.
Eine Schleife wie Du sie brauchst( ohne den restlichen Code genauer unter die Lupe genommen zu haben) würde ich wie folgt skizzieren:
Option Explicit
Sub Test01()
Dim lngZeile As Long
Dim lngNettoSpalte As Long
Dim vBetrag As Variant
Do While Not IsEmpty(Sheets(1).Cells(lngZeile, lngNettoSpalte))
'*** Variable merkt/summiert Nettobetrag
vBetrag = vBetrag + Cells(lngZeile, lngNettoSpalte)
'*** Schleifenzähler inkrementieren
lngZeile = lngZeile + 1
Loop
End Sub
Lösen würde ich es aber mit der Methode WorksheetFunction.Sum().
Der Methode wird der Zellbereich übergeben und liefert die Summe als Ergebnis zurück. Lerrezllen interessieren/stören dabei nicht.
Das Ganze mit (1 + Steuersatz) multipliziert ergibt Dein Bruttobetrag.
Ob die Methode so bei Mac funktioniert kann ich, wie gesagt, nicht beurteilen.
|