Division mit 0,.... Fehlerbehebung
21.12.2022 15:47:56
Tanja
ich habe folgendes Problem. Ich habe mehrere Textboxen in einer Userform in denen Berechnungen stattfinden. Das klappt auch soweit ganz gut. Nun möchte ich, das der Anwender eine Zahl mit Kommastelle in Textbox5 eingeben kann. Das funktioniert solange, bis er versucht eine Null mit Kommastelle einzugeben. Dann bekomme ich die Fehlermeldung Division durch 0.
WechselRekla und DebitNoteValue sind als Double dimensioniert
Ich verwende folgenden Code:
Private Sub TextBox5_Change()
'Prüfen ob Eingabe eine Zahlen ist
If IsNumeric(TextBox5.Value) = True Then
'Alten Wert wieder herstellen mit globaler Variabel
WechselRekla = TextBox5.Value
'Debit Note Value berechnen
tb_DebitValueEur.Value = Format(DebitNoteValue / WechselRekla, "#,##0.00")
'prüfen ob Eingabe leer ist
ElseIf TextBox5.Value = "" Then
'globale Variable verändern
WechselRekla = 1
'Gewinnberechnen
tb_DebitValueEur.Value = Format(DebitNoteValue / WechselRekla, "#,##0.00")
'wenn Eingabe keine Zahl ist
Else
'Alten Wert wieder herstellen
TextBox5.Value = WechselRekla
'Messagebox
MsgBox "Bitte nur Zahlen eingeben."
End If
Kann mir jemand erklären wie ich diesen Fehler umgehen kann? Vielen Dank für eure Hilfe.
Tanja