Office: Verlinkung von Schaltfläche mit Code für CommandButton

Hallo,

Ich bitte um Hilfe bei einer kleinen, aber für mich verzwickten Angelegenheit:

Ich habe
zwei Codes für zwei CommandButtons (siehe unten) sowie
zwei Schaltflächen („Summe einfügen“ & „Summe mit VK") in meiner Excel Tabelle (siehe Anhang).

Wie schaffe ich es, dass
wenn ich „Summe einfügen“ klicke, Excel den Privat Sub CommandButton1_Click() verwendet?
bzw.
wenn ich „Summe mit VK“ klicke, Excel den Privat Sub CommandButton2_Click() verwendet?


(Im Moment ist es so, dass egal welchen Button ich klicke immer Private Sub CommandButton2_Click() verwendet wird…)

Danke für eure Hilfe im Voraus.



--------------------------------(oder siehe Datei im Anhang)---------------------------

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) = 5.8
Cells(x + 2, 6) = Cells(x, 6) + Cells(x + 1, 6)
Cells(x + 3, 6) = Cells(x + 2, 6) * 0.19
Cells(x + 4, 6) = Cells(x + 2, 6) + Cells(x + 3, 6)

Cells(x, 5) = "Summe"
Cells(x + 1, 5) = "zzgl. Versandkosten"
Cells(x + 2, 5) = "Zwischensumme"
Cells(x + 3, 5) = "zzgl. 19% MwSt."
Cells(x + 4, 5) = "Gesamt"
End Sub


Private Sub CommandButton2_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) = 5.8
Cells(x + 2, 6) = Cells(x, 6) + Cells(x + 1, 6)
Cells(x + 3, 6) = Cells(x + 2, 6) * 0.19
Cells(x + 4, 6) = Cells(x + 2, 6) + Cells(x + 3, 6)

Cells(x, 5) = "Summe"
Cells(x + 1, 5) = "zzgl. Versandkosten"
Cells(x + 2, 5) = "Zwischensumme"
Cells(x + 3, 5) = "zzgl. 19% MwSt."
Cells(x + 4, 5) = "Gesamt"
End Sub

 

Hallo,

so wie ich das sehe sind die beiden Codes identisch.

 

Oha, bin ich blöd... Danke für den Hinweis. War wohl ein Copy-and-Paste Fehler. Funktioniert alles wunderbar...

Brauch ne Pause :)