Office: zusätzlicher 'Summe einfügen'-Button in Tabellenblatt

Ich brauche Hilfe bei folgendem Problem:

Ich habe eine Excel-Tabelle mit 6 Spalten, die als Grundlage für eine Rechnung dient:

Position --- Artikel-Nr. --- Artikel-Beschreibung --- Menge --- Einzelpreis --- Gesamt

Mit Hilfe aus diesem Forum habe ich außerdem einen ‚Summe einfügen’ – Button in dem Tabellenblatt. Ein Klick darauf und es werden

-> Summe
-> zzgl. 19% MwSt.
-> Gesamt

als Wort & Wert (unter der Spalte Gesamt) eingefügt.

--------------

Ich würde nun gerne ZUSÄTZLICH einen zweiten Button haben, der

-> Summe
-> zzgl. Versandkosten
-> zzgl. 19% MwSt.
-> Gesamt

als Wort & Wert (Versandkosten mit einem Fixwert von z.B. 4,00) einfügt.

Ist dies möglich?
Wie würde der Code dafür lauten?



----------------------Code für Button 1: -------------------------------

Option Explicit

Private Sub CommandButton1_Click()
Dim x As Integer
x = [=MAX((D1:D1000<>"")*ROW(1:1000))] + 1
Cells(x, 6) = WorksheetFunction.Sum(Range(Cells(1, 6), Cells(x - 1, 6)))
Cells(x + 1, 6) = Cells(x, 6) * 0.19
Cells(x + 2, 6) = Cells(x, 6) + Cells(x + 1, 6)
Cells(x, 5) = "Summe"
Cells(x + 1, 5) = "zzgl. 19% MwSt."
Cells(x + 2, 5) = "Gesamt"
End Sub

 

Hallo,

das Problem dürfte sich erledigt haben:

http://www.office-hilfe.com/support...chaltflaeche-mit-code-fuer-commandbutton.html