Ok mitlerweile habe ich geschafft, dass das Programm nicht mehr aufhängt.Es berechnet auch den ersten Wert richtig beendet jedoch dann die Schleife ohne erkennbare Grund ( für mich)
'Brutto
Dim BruttoBe As Double
BruttoBe = 0
'Netto
Dim NettoBe As Double
NettoBe = 0
'Art
Dim ArtBe As String
'Tabellenblätter
Const Tabelle1 As Long = 1
Const Tabelle2 As Long = 2
'Spalten
Const NettoSpalte As Long = 1
Const ArtSpalte As Long = 2
Const BruttoSpalte As Long = 3
'Zeilen
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
|