wir nutzen in der Firma z.T. eine kleine Userform zum Eintragen von Rechnungen. Diese Userform funktionierte problemlos, bis dass der erste PC bei uns modern mit Excel 365 ausgestattet wurde.
Excel 365 berechnet bei einer Rechnungssumme von 250 zwar die korrekten 47,50 MwSt, addiert jedoch 250 + 47,50 = 725.
Der Fehler scheint offensichtlich: Excel erkennt plötzlich das Komma nicht mehr. Ich kann aber nirgendwo im Code das Fragment erkennen, was das bewirken könnte:
Private Sub txt_Netto_Change()
If box_Mwst.Value = True Then
If txt_Netto.Value = "" Then Exit Sub
If IsNumeric(txt_Netto.Value) Then
If Len(txt_Netto.Value) > 1 Then
txt_Mwst.Value = txt_Netto.Value * 0.19
Else
txt_Mwst.Value = 0
End If
Else
MsgBox "Bitte nur Zahlen eingeben!", vbInformation + vbOKOnly
With frm_Rechnungen
txt_Netto.Value = ""
txt_Mwst.Value = ""
txt_Brutto.Value = ""
End With
Exit Sub
End If
If txt_Mwst.Value "" Then
txt_Brutto.Value = (txt_Netto.Value) * 1 + (txt_Mwst.Value) * 1
End If
Else
If txt_Netto.Value = "" Then Exit Sub
If IsNumeric(txt_Netto.Value) Then
If Len(txt_Netto.Value) > 1 Then txt_Mwst.Value = 0
Else
MsgBox "Bitte nur Zahlen eingeben!", vbInformation + vbOKOnly
With frm_Rechnungen
txt_Netto.Value = ""
txt_Mwst.Value = ""
txt_Brutto.Value = ""
End With
Exit Sub
End If
If txt_Mwst.Value "" Then
txt_Brutto.Value = (txt_Netto.Value) * 1 + (txt_Mwst.Value) * 1
End If
End If
End Sub
Hat jemand von euch eine Idee, was ich ändern könnte; oder weiß jemand, was sich in dem aktuellsten Excel womöglich geändert hat?