Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

geklickten CommandButton ermitteln

Forumthread: geklickten CommandButton ermitteln

geklickten CommandButton ermitteln
22.04.2009 09:29:26
Nik
Hallo und Guten Morgen.
Folgendes Problem:
Ich habe eine UserForm mit 40 CommandButtons.
Wenn jetzt der Benutzer auf einen CommandButton klickt, sollte eine PublicVariable cmd einen bestimmten
Wert übernehmen.
Muß ich für jeden CommandButton ein klick-Ereignis schreiben oder ist dies anders lösbar?
(z.B. Me("CommandButton" & a).click...
Nur so als Denkansatz..
Danke im vorraus.
NIK
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geklickten CommandButton ermitteln
22.04.2009 10:00:06
Peter
Hallo Nik,
das kannst du über ein Klassenmodul lösen.
Lies dich unter www.online.excel.de in das Gebiet ein, da wird dir hervorragend geholfen.
Gruß Peter
AW: geklickten CommandButton ermitteln
22.04.2009 10:06:10
Nik
Dankeschön, werd ich machen ;-)
Noch ne Frage hinterher:
eine public-variable cm wird mit Werten von 1-40 definiert.
Danach wird eine neue Userform2 aufgerufen.
In der Userform2 soll ein Text eingegeben werden. Dieser Text soll dann die caption für den
Command Button in Userform 1 sein.
Bekomm aber den code nicht hin:

Private Sub cmdEnde_Click()
With Userform1
.("cmd") & cm.caption = txtDst
end with
End Sub


Kann mir wer helfen?

Anzeige
AW: geklickten CommandButton ermitteln
22.04.2009 11:07:43
Rainer
So müsste es gehen (ungetestet):

Private Sub cmdEnde_Click()
UserForm1.CommandButton1.Caption = UserForm2.TextBox1.Value
End Sub


Vorraussetzung dafür wäre allerdings das die UserForm1 bei Aufruf der UserForm2 aktiv bleibt also nicht mit Hide oder Unload deaktiviert wird.
Hilft's?
Gruß
Rainer

Anzeige
AW: geklickten CommandButton ermitteln
22.04.2009 11:21:17
Nik
Danke.
Hab etwas rumprobiert und habs so gefunden:
UserForm1("cmd" & cm).caption = txtDst
Geht auch...
Aber mit den Klassenmodulen komm ich nicht klar.
Hab mich eingelesen und rumprobiert und schaffs irgendwie nicht.
Sollte jemand Zeit & Lust haben, vielleicht könnte mir wer auf die Sprünge helfen...*verwirr*
Nik
Anzeige
AW: Korrektur
22.04.2009 10:44:13
Peter
Hallo Nick,
die Internet-Adresse muss www.online-excel.de heißen - mit Bindestrich, nicht mit Punkt zwischen Online und excel.
Gruß Peter
Anzeige
AW: geklickten CommandButton ermitteln
22.04.2009 11:35:51
Rainer
Oops ... Deine Ursprungsfrage komplett übersehen. ^^
Also egal wie Du es machst Du wirst nicht drum herum kommen die Anweisung 40 mal zu schreiben, da ja jeder CommandButton einen anderen Wert darstellt (zumindest habe ich es so verstanden).
Was spricht also dagegen das Klickereignis für jeden Button zu definieren? Vor allem da der Rahmen der Sub ja äußerst bequem automatisch geliefert wird, wenn Du auf den Button einen Doppelklick ausführst. Musst dann nur noch die Anweisung schreiben.
Vor allem fällt mir gerade keine andere Möglichkeit ein den Click auf einen Button anders als über das Click-Ereignis abzufragen.
Ist die Anweisung Du schreiben willst, bzw. die zum Click-Ereignis gehört eine umfangreiche Prozedur kannst Du ja die Prozedur als Function schreiben und beim Click-Ereignis nur den Übergabewert des Buttons an die Function liefern.
Z.B. so:

Private Sub cmd1_Click()
call Ausführung(1)
End Sub




Public Function Ausführung(ByVal Übergabe As Integer)
Select Case Übergabe
Case 1
' Command Button 1 wurde geklickt
Case 2
' Command Button 2 wurde geglickt
End Select
End Function


Kannst auch die Übergabe ByRef machen, dann kann der Inhalt der Variabele Übergabe innerhalb der Function verändert werden.
Gruß
Rainer

Anzeige
AW: geklickten CommandButton ermitteln
22.04.2009 12:09:12
Nik
Super Danke Dir
;

Forumthreads zu verwandten Themen

Nachtrag zu Gestern - Commandbutton ...
Frank

Hallo Excelgemeinde!
Gestern fragte ich wie ich CommanButton mit Namen aus einer Tabelle befüllen kann!
Rudi schickte mir folgende Lösung:
CommandButton1.Caption = Range("AQ3").Text
Im Augenblick wird das Ereignis durch folgende Überschrift ausgelöst:
Private Sub Worksheet_S...
12.08.2008 14:38:00
Thread-ID: 1001212
2 Beiträge
Anzeige
auf CommandButton zugreifen
Lars

Hallo zusammen,
ich habe in Excel von einem Tabellenblatt A eine Abfrage (msgbox ok/cancel) gestartet, die ein anderes Tabellenblatt B aktiviert, wenn ok geklickt wird. Andernfalls erfolgt ein Rücksprung auf A.
Wenn nun ok geklickt wird, soll auf Tabellenblatt B zusätzlich ein CommandBu...
02.09.2008 16:44:00
Thread-ID: 1006864
5 Beiträge
Anzeige
CommandButton Name
Enrico

Hallo ich möchte die Eigenschaften von vielen CommandButton´s über ein
Makro ändern.
in Range("X" & i).Value steht der Name des Command Buttons
For i = 2 To 100
Knopf = Sheets("Daten").Range("X" & i).Value
Farbe = Sheets("Daten").Range(Knopf).Value
If Farbe = 1...
05.09.2008 09:24:00
Thread-ID: 1007588
3 Beiträge
Anzeige
commandbutton erstellen
sockel939

Hallo,
gibt es einen code mit dem man commandbuttons erstellen kann und gleich eine anweisung einfügen kann?
Ich kenne AddButtons weiß aber nicht wie das geht.
Danke
10.10.2008 12:00:17
Thread-ID: 1015547
2 Beiträge
Commandbuttons einfärben
Wolfgang

Hallo Excel Experten.
Stehe vor einem Problem bei dem ich nicht mehr weiterkommen.
Ich habe in einer Userform 42 CommandButton, die je nach Programmablauf verschieden eingefärbt werden sollen.
Es will mir aber nicht gelingen, diese einzeln in einer Schleife anzusprechen, den momenta...
15.10.2008 08:56:10
Thread-ID: 1016475
3 Beiträge
Makrofehler nur beim Commandbutton
Kurt

Guten Morgen,
warum klappt das Selectieren mit Commandbutton nicht.
Ich bin immer in der Tabelle "Gesamt"
Hier mit CommandButton:
Private Sub CommandButton100_Click() Sheets("Datenbank").Select ActiveSheet.Range("G3").Select Dim z As Long z = Range("g3").End(xlDown).Row Active...
17.10.2008 11:00:00
Thread-ID: 1017071
22 Beiträge
CommandButton Enabled = false
max

Liebe VBA-Gemeinde,
ich habe in einem Excel-Sheet zwei CommandButton eingefügt. Wenn der User nun den CB_1 klickt soll der CB_2 auf enabled = false gesetzt und der Text kursiv dargestellt werden.
Wie geht's ?
Dank im voraus
max
30.10.2008 15:07:25
Thread-ID: 1020626
5 Beiträge
Anzeige
CommandButton
Frank

Hallo,
Ingo aus dem Forum war mir bei diesem Code sehr behilflich
nun sollte ich aber noch einen CommandButton3 einfügen
der sollte bewirken das wenn ich den Preis in der TextBox=Preis
überschreibe diesen dann im Tabellenblatt ändert, nach Möglichkeit
erst noch eine Rückfrag...
04.11.2008 13:37:50
Thread-ID: 1021608
17 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:11:10
Thread-ID: 1022366
6 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:17:30
Thread-ID: 1022372
2 Beiträge
CommandButton Franz
Frank

Hallo Franz,
mein Beitrag im Forum ist verschwunden
mit deiner letzten Hilfe komme ich leider nicht klar
wo muss ich diesen Code einfügen
With Worksheets("Daten")
------If IsNumeric(.Cells(Zeile,Spalte) Then-------------------- ist im Code rot dargestellt
Me.Preis=Format...
11.11.2008 10:11:00
Thread-ID: 1023441
4 Beiträge
Blinkender Commandbutton
Ralf

Hallo Experten!
Ist es möglich einen Commandbutton blinken zu lassen wenn in der angesteuerten Arbeitsmappe neue Einträge gemacht wrden? Die Blinkdauer sollte 24h betragen.
Gruß Ralf
12.11.2008 20:21:00
Thread-ID: 1023986
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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