Dim BruttoBe As Double
BruttoBe = 0
Dim NettoBe As Double
NettoBe = 0
Dim ArtBe As String
Const Tabelle1 As Long = 1
Const Tabelle2 As Long = 2
Const NettoSpalte As Long = 1
Const ArtSpalte As Long = 2
Const BruttoSpalte As Long = 3
Dim Zeile1 As Long
Const StartZeile As Long = 2
Dim Zeile2 As Long
Zeile1 = StartZeile
Zeile2 = StartZeile
Do While Not IsEmpty(Sheets(1).Cells(Zeile1, NettoSpalte))
Zeile1 = Zeile1 + 1
Loop
NettoBe = Sheets(1).Cells(Zeile2, NettoSpalte)
ArtBe = Sheets(1).Cells(Zeile2, ArtSpalte)
BruttoBe = BruttoBerechnen(NettoBe, ArtBe)
Sheets(1).Cells(Zeile2, BruttoSpalte) = BruttoBe
Zeile2 = Zeile2 + 1
End Sub