Hallo
ich möchte von einer (mittels Makro) berechneten Zelle die Mehrwertsteuer berechnen und danach die Summe der beiden zellen bilden.
Ich habe folgenden Code, der aber nicht funktioniert. Kann mir jemad helfen ?
Dim Zeile As Long
Zeile = Range("D65536").End(xlUp).Row
Cells(Zeile + 2, 4).Formula = "=SUM($D$1:$D$" & Zeile & ")"
Cells(Zeile + 2, 3) = "Zwischentotal"
Cells(Zeile + 2, 3).Select
With Selection.Font
.FontStyle = "Fett"
End With
Cells(Zeile + 2, 4).Select
With Selection.Font
.FontStyle = "Fett"
End With
Cells(Zeile + 3, 3) = "MwSt 7.6%"
Cells(Zeile + 3, 4).Formula = "=SUM($D$1:$D$" & Zeile & ")/100*7.6"
Cells(Zeile + 4, 3) = "Total"
Cells(Zeile + 4, 4).Formula = "=RUNDEN(SUM($D$" & Zeile + 2 & ":$D$" & Zeile + 3 & ");1)"
Das Problem ist nur die letzte Zeile
Besten dank im voraus
Oliver