Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro dynamisch einer Schaltfläche zuweisen?

Makro dynamisch einer Schaltfläche zuweisen?
18.06.2008 07:52:00
Captain
Moin,
ich lege mir mit einem Code einen CommandButton auf meine Userform - mit folgendem Code:

Public MyCMB As MSForms.CommandButton
Set MyCMB = DB_anlegen.Controls.Add("Forms.CommandButton.1")
'FELDDATENTYP ANLEGEN
With MyCMB
.Left = 42
.Height = 24
.Width = 42
.Top = 318
.Name = "CMD1_secure"
End With


Kann ich diesem CommandButton auch per Code ein Makro zuweisen, so alá .OnAction oder dergleichen?
Danke und Greetz
Jack

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

Betreff
Datum
Anwender
Anzeige
AW: Makro dynamisch einer Schaltfläche zuweisen?
18.06.2008 08:31:51
Ramses
Hallo
Jein,... dazu musst du den completten Code für diesen Commandbutton in dein VB-Projekt schreiben.
Ein Makro zuweisen "..alá .OnAction ..." geht nicht.
Aber wozu das ganze ?
Wenn du die Schaltfläche sowieso immer wieder brauchst, bau sie in die UF gleich mit ein, und setze sie auf "Visible = false" und blende sie bei Bedarf ein
Gruss Rainer

AW: Makro dynamisch einer Schaltfläche zuweisen?
18.06.2008 09:40:00
Captain
Hi,
es ist nicht ganz so. Es können auch mehrere Commandbuttons sein. Also wird es nicht nur einer; das ist dann abhängig von dem Wunsch des Users.
Ich arbeite an einer komplexeren Verbindung zwischen Excel und Access (nur als DB - Backend). Ich versuche hier etwas - nämlich die Tabellenerstellung ala Access in Excel umzusetzen. Entscheidet sich der User also beispielsweise, eine Tabelle mit 10 Spalten oder 30 odeoder zu erstellen, dann werden entsprechend die Felder, TextBoxen, erstellt, in der der User das Format usw. eingeben kann. Bislang funkt es :-)
Jack

Anzeige
AW: Makro dynamisch einer Schaltfläche zuweisen?
18.06.2008 09:37:00
Captain
Hi Tino,
SUPER!!! Ich danke Dir...echt geil .-)
Einen schönen Tag
Jack

AW: Makro dynamisch einer Schaltfläche zuweisen?
Ramses
Hallo
Klar ist das schön, aber unter dem Strich auch nichts anderes als wenn der Button mit dem entsprechenden Code bereits vorher erstellt worden wäre und dann einfach sichtbar geschaltet wird.
Denn dieses makro

Private Sub MyButton_Click()
Call Mein_Makro
End Sub


funktioniert nun mit jedem Button der neu erstellt worden ist.
Du musst hier dann noch abfragen, welcher Button denn dann gedrückt wurde, wenn mehrere erstellt worden sind, um dann das entsprechende Makro, dem Button dann auch zugehörige, auszuführen.
Ob das dann einfacher ist, auch von der Wartung und Plfege, bezweifle ich ehrlich gesagt.
Gruss Rainer

Anzeige
AW: Makro dynamisch einer Schaltfläche zuweisen?
18.06.2008 11:12:00
Captain
Ist ja auch eigentlich Sinn der Sache...allerdings sollte dieser Code nciht für alle Buttons, sondern nur für die dynamsich zur Laufzeit erstellten funktionieren. Und ich schätze, ich habe hier noch einen Fehler...

dummy = 0
With Me
For i = 0 To .Controls.Count - 1
If Left(.Controls(i).Name, 5) = "cmd_F" Then
Set MyButton.MyButton = MyCMB
End If
Next i
End With


Leider funktioniert es nicht, dass dann jeder neue CB das Makro ausführt, sondern nur der letzte. Jetzt habe ich es wie oben mittels Schleife versucht, geht aber nciht. Wo habe ich den Fehler?
Jack

Anzeige
AW: Makro dynamisch einer Schaltfläche zuweisen?
18.06.2008 13:27:00
Captain
Hi Tino,
echt klasse! Ich bin restlos begeistert und bedanke mich in schärfster Form...Ich wünschte, ich wäre auch so begabt...!
cu
Jack

301 Forumthreads zu ähnlichen Themen

Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
Anzeige
Makro beim verlassen einer Zelle
Dirk

Hallo zusammen,
hier wahrscheinlich zum x.ten ma die Frage; Kann ich beim Verlassen einer Zelle mit Return im Arbeitsblatt en Makro ablaufen lassen?
Im Archiv habe ich leider nichts gefunden
04.02.2009 22:09:38
Thread-ID: 1047231
5 Beiträge
Makro nach Verlassen einer Zelle ausführen
Jakob

Hallo,
ich habe folgendes Makro hier gefunden. Ich weiß aber nicht wo ich dieses Makro reinschreiben muß. Die Tabelle die das Makro überwachen soll heiß Tabelle1(PFAnforderung).
ClassModule: Tabelle1 Dim bln As Boolean Private Sub Worksheet_SelectionChange _ (ByVal Target As Excel.Ran...
04.03.2009 16:18:06
Thread-ID: 1056492
2 Beiträge
Anzeige
Makro einer Zelle zuordnen
Karsten

Hallo,
ich möchte einen Makro einer bestimmten Zelle zuordnen. D.h.: Ich möchte Makro0 per Button starten,
der dann entscheidet, welcher Makro dann ausgeführt wird. Z.B. Wenn die aktive Zelle C5 ist sollte Makro1 ausgeführt werden, wenn C6 Makro2.
Kann mir jemand dabei helfen?
...
19.09.2009 21:15:03
Thread-ID: 1104147
3 Beiträge
Makro einer Schaltfläche zuweisen
Gunter

Hallo Zusammen,
ich habe in einem Arbeitsblatt ein Makro einer Schaltfläche zugewiesen. Wenn ich jetzt ein neues Arbeitsblatt aufmache ist die Schaltfläche auch vorhanden. Soweit so gut. Wenn ich nun auf diese Schaltfläche klicke öffnet sich die Datei in der ich das Makro erstellt habe. Mus...
02.10.2009 19:04:57
Thread-ID: 1106903
10 Beiträge
Makro, Suchfunktion, Zelle nach oben bis Wert
Markus

Hallo Leute!
Ich bin absoluter Excel und VBA Neuling, aber bring mir das ganz gerade ein bisschen bei, indem ich Suchmaschinen um Rat frage. Diese geniale Seite hat mir auch schon oft weiter geholfen, nur bei meinem folgenden Problem komm ich nicht weiter:
Ich habe ein Excel-Sheet in fo...
15.10.2009 00:57:03
Thread-ID: 1109555
4 Beiträge
Jahreszahl im Makro aus einer Zelle
Ralf

Hallo Forum,
ich möchte auf tabellenblättern von Januar bis Dezember Jahreszahlen in verschiedenen Zellen schreiben. Dazu habe ich mir mit dem makrorekorder folgendes Makro aufgezeichnet:
Sub Jahreszahl_ändern() ' Jahreszahl_ändern Range("A35").Select ActiveCell.FormulaR1C1 = "2010" End...
08.01.2010 07:12:30
Thread-ID: 1128071
6 Beiträge
Makro starten bei Verlassen einer zelle mit return | Herbers Excel-Forum
Julian
Guten Abend,
ich möchte in einer Zelle einen Wert eingeben und wenn ich Enter drücke, soll ein Makro gestartet werden.
Ich habe schon einige Beiträge zu diesem Thema gelesen und es u. a. mit diesem Makro schonmal probiert:
Sub Makro2() Private Sub Worksheet_Change(ByVal Target As Range)...
16.01.2010 19:50:03
Thread-ID: 1130506
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
4
2
4
1
8
2
9
3
5
2
4
2
4
2
6
3
1
5
3
2
2
3
2
4
3