Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ein Makro mehreren Buttons zuweisen

Ein Makro mehreren Buttons zuweisen
18.06.2018 15:00:56
Chris
Hallo Forum,
ich habe eine Userform mit 20 Buttons. Bei Klicke auf einem der Buttons - egal welcher - soll immer dasselbe Makro ausgeführt werden. Wie stellt man so etwas in VBA an?
Hier das auszuführende Makro - beschränkt auf den ersten Button.

If Me.CommandButton1.BackColor = vbGreen Then
Me.CommandButton1.BackColor = vbRed
End If
Schon mal danke,
Gruß Chris

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ein Makro mehreren Buttons zuweisen
18.06.2018 15:30:22
Torsten
hi Chris.
Ich vesteh nicht ganz. Also wenn der Button gruen ist, soll er bei klick rot werden?
Dann mach den Code halt fuer jeden Button. CommandButton2 usw.
Oder soll immer der gleiche Button rot werden?
AW: Ein Makro mehreren Buttons zuweisen
18.06.2018 15:33:24
Chris
Hallo Torsten,
das Makro oben bezieht sich beispielhaft nur auf CB1.Da ich 20 Buttons habe möchte ich nicht das obige Makro 20 mal kopieren (If Me.CommandButton2.3.4.5.....20)....
Mein Makro oben müsste demnach auch in einer(!) Variante geändert werden, so dass es für jeden der 20 Buttons gilt.
Gruß
Chris
AW: Ein Makro mehreren Buttons zuweisen
18.06.2018 17:28:10
Daniel
Hi
such mal nach "Klassenprogrammierung"
damit kann man sowas machen, dh ein Eventmakro erstellen und dieses dann mehren Buttons zuweisen.
mehr kann ich dir dazu aber auch nicht sagen (sollte aber auch Beispiele im Archiv geben)
Wenn dir die Klassenprogrammierung zu kompliziert ist (so wie mir), dann kannst du dir mit dieser Vorgehensweise die Arbeit etwas erleichtern:
Du schreibst den eigentlichen Code in ein normales Makro und rufst dann von den Klick-Events nur noch dieses Makro auf, so dass du im Änderungsfall nur einmal das normale Makro anpassen musst.
Das angeklickte Steuerelement übergibt man als Parameter: 
Private Sub Steuerelement_Färben(crtl as control)
If crtl.BackColor = vbGreen Then
crtl.BackColor = vbRed
End If
End Sub
du brauchst dann zwar immer noch für jeden commandbutton ein Klick-Eventmakro, aber das lässt sich ja einfach per Kontextmenü erzeugen.
in das Klickevent-Makro kommt dann diese Programmzeile: 

Private Sub Commandbutton1_Click()
Call Steuerelement_Färben(ActiveControl)
End Sub
ActiveControl ist das zuletzt angeklickte Control der Userform, damit kannst du dann im KlickEventmakro das angeklickte Steuerelement referenzieren, ohne den Namen anpassen zu müssen.
damit ist der Code im Klick-Eventmakro für alle Buttons der gleiche, so dass du ihn einfach per Copy-Paste übertragen kannst.
Gruß Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

VBA-CommandButton funktioniert nicht richtig
Marko

Hallo zusammen,
ich habe aus meinen früherem Aufgabengebiet noch eine Datei mit einem ganzen Sack voll Makros drin. Die meisten benötige ich jetzt nicht mehr - aber mindestens eines ist dabei, dass ich gern wieder nutzen würde.
Das Makro blendet ein Fenster ein und listet darin alle Tab...
27.05.2011 13:30:15
Thread-ID: 1216327
4 Beiträge
Anzeige
(Command-)Buttons Makro zuweisen
Gerhard S.

Hallo, ich glaub das ist die Hitze, aber ich dreh mich geistig im Kreis....
da ich meinen Makros bisher immer nur eine VBA-Schaltfläche zugewiesen habe, diese aber nicht kurzfristig ausblenden oder inaktiv machen kann, wollte ich es mit einigen CommandButton probieren. wenn ich das Makro ein...
19.06.2002 09:34:00
Thread-ID: 129748
7 Beiträge
modulaufruf per Commandbutton vs. einzelne Makros
Rene

Hallo Leute,
ich habe 6 Module erstellt, in denen ich 1 Makro bzw. 3 Makros stehen habe. Wenn ich nun per commandbutton alle Module nacheinander laufen lasse bekomme ich ein anderes Ergebnis, als wenn ich die Module einzeln nacheinander abspiele. Liegt das vielleicht daran, dass ich in jede...
04.03.2013 16:40:45
Thread-ID: 1302228
8 Beiträge
Anzeige
ComboBox-Auswahl mit CommandButton Makro starten
Stefan

Hallo zusammen,
hat einer ne Idee wie man folgendes umsetzt?:
Ich möchte in einer UserForm mittels dropdown verschiedene Zahlen auswählen. Dazu habe ich folgendes:
Private Sub UserForm_Initialize() With Me.ComboBox1 .AddItem "201" .AddItem "205" .AddItem "206" .AddItem "207" .AddIte...
04.02.2014 09:24:47
Thread-ID: 1347908
5 Beiträge
Makro für CommandButton per Makro einfügen
Hilde

Hallo,wie kann ich in VBA ein Makro einem zuvor eingefügten CommandButton zuweisen? (Wie das manuell geht, weiß ich)Also, die Makro per Makro einfügen Variante interessiert mich!Vielen Dank im Voraus
29.07.2002 12:33:31
Thread-ID: 141931
9 Beiträge
Makro Button zuweisen, "ActiveWorkbook"
Herman

Hallo,
Quelldatei: Quelle.xlsm
Exportdatei: Export_Datum_Uhrzeit.xlsm
folgendes Szenario: Ich exportiere über ein Makro mehrere Arbeitsblätter. Auf einem dieser Arbeitsblätter sind mehrere Buttons, die mit einem Makro verknüpft sind (die Makros werden ebenfalls exportiert).
Folg...
15.06.2015 10:22:35
Thread-ID: 1430918
2 Beiträge
CommandButton mit VBA-Code zuweisen
Hermann

Hallo zusammen,
das ersteTabellenblatt in meiner Exceltabelle (mit ca. 100 Tabellenbl.) ist ein Inhaltsverzeichnis mit Hyperlinks zum Aufrufen der einzelnen TabBlätter.
Das TabBlatt „Inhaltsverzeichnis“ wird durch einen VBA-Code erstellt. Kommt ein neues TabBlatt hinzu, rufe ich mit Alt...
30.10.2015 19:22:06
Thread-ID: 1455516
3 Beiträge
CommandButton mit VBA-Code zuweisen
Hermann

Hallo zusammen,
das ersteTabellenblatt in meiner Exceltabelle (mit ca. 100 Tabellenbl.) ist ein Inhaltsverzeichnis mit Hyperlinks zum Aufrufen der einzelnen TabBlätter.
Das TabBlatt „Inhaltsverzeichnis“ wird durch einen VBA-Code erstellt. Kommt ein neues TabBlatt hinzu, rufe ich mit Alt...
30.10.2015 19:22:36
Thread-ID: 1455517
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
6
7
2
4
8
1
2
7
24
1
15
3
4
4
6
1
3
4
2
2
2
7
7