Hallo zusammen!
Ich habe folgendes Problem:
Bei mir stürzt das Programm immer beim ausführen der while schleife ab. Ohne Schleife jedoch klappen alle Berechnungen. Habe das "Programm" bereits 3 mal neu geschrieben. Wäre also bei Hilfe extrem dankbar.
Sowohl die Funktion als auf der Sub ohne Berechnung rechnen korrekt und funktionieren einwandfrei!
Ich arbeite auf einem macbook und habe auch schon mehrfach überprüft, ob ich sowohl bei Excell als auch MacOs die neuste version habe! Ebenfalls erfüllt.
Folgende Aufgabe:
In Den Zeilen stehen folgende Sachen:
-- A ------ B------C
1 --Nett - art - Brutto
2 --100 - Buch - 'bis dato leer'
Ich erzeuge einen Button mit x beliebgem Namen der dann sen Sub ausführen soll.
Das Programm soll einfach den Bruttobetrag berechnen und diesen dann in die entsprechende Zeile schreiben
Im Tabellenplatt 1 in Vba steht folgednes:
Sub NettoAusgeben()
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 Zähler As Long
Dim Zeile As Long
Const StartZeile As Long = 2
Zeile = StartZeile + Zähler
Do While Not IsEmpty(Sheets(1).Cells(Zeile, NettoSpalte))
'Zähler Zähler = Zähler + 1
Loop
'Berechnen NettoBe = Sheets(1).Cells(Zeile, NettoSpalte)
ArtBe = Sheets(1).Cells(Zeile, ArtSpalte)
BruttoBe = BruttoBerechnen(NettoBe, ArtBe)
'Ausgeben Sheets(1).Cells(Zeile, BruttoSpalte) = BruttoBe
End Sub
In das Modul 1 habe ich dann folgendes geschrieben um zu berechnen welchen Steuersatz ich verwende und wie man den Bruttobetrag berechnet:
Function BruttoBerechnen(Netto As Double, Art As String)
Const AndereZ As Double = 0.19
Const LehreZ As Double = 0
Const BuchZ As Double = 0.07
Dim Zins As Double
If Art = "Lehre" Then
Zins = LehreZ
ElseIf Art = "Buch" Then
Zins = BuchZ
Else Zins = AndereZ
End If
BruttoBerechnen = Netto * (1 + Zins) End Function
|