Thema Datum  Von Nutzer Rating
Antwort
Rot Do while - Excell hängt sich auf
28.03.2021 17:00:11 Langes2505
Solved
28.03.2021 17:23:21 Mase
NotSolved
28.03.2021 17:27:39 Langes2505
NotSolved
28.03.2021 17:42:45 Langes2505
NotSolved
30.03.2021 00:43:33 Nobody
NotSolved
28.03.2021 17:46:59 Mase
NotSolved

Ansicht des Beitrags:
Von:
Langes2505
Datum:
28.03.2021 17:00:11
Views:
155
Rating: Antwort:
 Nein
Thema:
Do while - Excell hängt sich auf

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Do while - Excell hängt sich auf
28.03.2021 17:00:11 Langes2505
Solved
28.03.2021 17:23:21 Mase
NotSolved
28.03.2021 17:27:39 Langes2505
NotSolved
28.03.2021 17:42:45 Langes2505
NotSolved
30.03.2021 00:43:33 Nobody
NotSolved
28.03.2021 17:46:59 Mase
NotSolved