Verlinkung von Schaltfläche mit Code für CommandButton :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Verlinkung von Schaltfläche mit Code für CommandButton

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Fran3000
Newbie
Newbie

Anmeldedatum: 23.01.2008
Beiträge: 18

Verfasst am: 01.10.2008, 14:00

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

2_CommandButton.xls

Beschreibung:

Download

Dateiname:

2_CommandButton.xls

Dateigröße:

33 KB

Heruntergeladen:

8 mal

< Peter >
Schlauberger

Anmeldedatum: 30.08.2008
Beiträge: 358
Wohnort: Das schönste Land in Deutschlands Gaun

Verfasst am: 01.10.2008, 14:06

Hallo,

so wie ich das sehe sind die beiden Codes identisch.

_________________
Gruß
Peter

Fran3000
Newbie
Newbie

Anmeldedatum: 23.01.2008
Beiträge: 18

Verfasst am: 01.10.2008, 14:15

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

Brauch ne Pause :)

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	SQL Code Hilfe Bitte	saschathede	Microsoft Access Hilfe	2	30.10.2008, 11:03
	Verlinkung zu Diagrammen	nadbanane	Microsoft Excel Hilfe	0	26.09.2008, 16:26
	CommandButton in Zeile erzeugen	Paulus2408	Microsoft Excel Hilfe	2	04.09.2008, 15:41
	Symbolleiste "Zeichnen" ist...	bodo020040	Microsoft Excel Hilfe	12	14.08.2008, 19:11
	Verlinkung zum Hinweis "Office 2...	schatzi	Lob, Kritik und Verbesserungsvorschläge	3	03.08.2008, 03:30

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de