VBA und €-Formate - falsche Werte werden angezeigt
24.09.2025 12:32:04
Diago_IN
in dem folgenden Script versuche ich Brutto-Beträge zu errechnen und dann
eine Gesamt-Summe zu errechnen.
Die Berechnungen stimmt auch alle - aber Excel zeigt mit (in diesem Fall in den Spalten
G und J zwar die Werte in € an - aber die Anzeige lautet
Spalte G: € 001 oder € 004 (etc.etc.) - richtig wäre hier 0,94 € oder 3,55 €
Spalte J: € 023 oder € 085 (etc.etc.) - richtig wäre hier 22,56 € oder 85,39 €
Wo ist mein Fehler - hat jemand eine Idee wie ich das bereinigen kann (außer manuell alles zu ändern)
Vielen lieben Dank!
Sub Schritt_2()
' Punkt 1: Berechnung des ersten Werts
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Einfügen")
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
Dim i As Long
For i = 2 To lastRow
If Not IsEmpty(ws.Cells(i, "E")) Then
ws.Cells(i, "G").Value = ws.Cells(i, "E").Value * 1.19 ' Wert aus E plus 19% in G
ws.Cells(i, "G").NumberFormat = "€ ##0,00" ' Format mit 2 Nachkommastellen und Eurozeichen
End If
Next i
' Punkt 2: Berechnung des zweiten Werts
For i = 2 To lastRow
If Not IsEmpty(ws.Cells(i, "E")) Then
ws.Cells(i, "J").Value = ws.Cells(i, "D").Value * ws.Cells(i, "G").Value ' Wert aus D multipliziert mit G in J
ws.Cells(i, "J").NumberFormat = "€ ##0,00" ' Format mit 2 Nachkommastellen und Eurozeichen
End If
Next i
End SubAnzeige