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

Commandbutton automatisch erstellen

Forumthread: Commandbutton automatisch erstellen

Commandbutton automatisch erstellen
05.02.2014 13:23:28
Ludmila
Hallo,
in einer Userform lasse ich Commandbutton erzeugen, wie kann ich
diesen dann ein Makro zuweisen?
Hintergrund ist, dass ich in einer UF mittlerweile über 500 Steuerelemente.
Danke!
Gruß, Ludmila
https://www.herber.de/bbs/user/89114.xlsm

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Commandbutton automatisch erstellen
05.02.2014 13:38:26
Mister-B
Hallo Ludmilla,
ich weiß auch nicht wie das geht aber in so einem Fall erstelle ich den Button mit Makro im Vorfeld und blende ihn dann aus. Mit einer If - Then Abfrage blende ich ihn später wieder ein oder auch nicht.
If "Bedingungen" Then CommandButton1.Visible = True
Gruß
Martin

Anzeige
AW: Commandbutton automatisch erstellen
05.02.2014 13:43:50
Ludmila
Hallo Martin,
danke erstmals für Deine Hilfe.
Ich habe schon verschiedene Button mehrfach belegt und lasse diese je nach Click
verzweigen.
z.B. 
Private Sub CMDH2_Click()
Z_Makro = CMDH2.Caption
Application.Run Replace(Z_Makro, " ", "_", 1)
End Sub

Ich will mit dem automatisch erstellen, nur die Button Anzahl in der UF reduzieren.
Gruß
Ludmila

Anzeige
AW: Commandbutton automatisch erstellen
05.02.2014 13:46:56
Rudi
Hallo,
kleine Änderung der Klasse: 
Option Explicit
Public WithEvents cmdButton As MSForms.CommandButton
Private Sub cmdButton_Click()
Dim Z_Makro As String
Z_Makro = cmdButton.Caption
Application.Run Replace(Z_Makro, " ", "_", 1)
End Sub

Modul1: 
Dim aCommands(1 To 42) As New clsButton
in den 3 Start-Prozeduren vor Next ii:
Start: 
      Set aCommands(ii).cmdButton = objcmdButton

Start1 
          Set aCommands(ii + 29).cmdButton = objcmdButton

Start2 
          Set aCommands(ii + 37).cmdButton = objcmdButton
Gruß
Rudi

Anzeige
AW: Commandbutton automatisch erstellen
05.02.2014 14:03:03
Ludmila
Hallo Rudi,
Danke für Deine Antwort leider funkt es nicht
Set aCommands(ii).cmdButton = objcmdButton
Fehlermeldung kommt und bleibt bei cmdButton stehen
Methode oder Datenobjekt nicht gefunden.
Gruß
Ludmila

AW: Commandbutton automatisch erstellen
05.02.2014 14:09:20
Rudi
Hallo,
hast du auch die Klasse angepasst?
Gruß
Rudi

Anzeige
AW: Commandbutton automatisch erstellen
05.02.2014 14:18:45
Ludmila
Hallo Rudi,
was muß ich in der Klasse anpassen?
Im Kassenmodul clsButton habe ich folgendes stehen:
Option Explicit
Public WithEvents CommandButton As MSForms.CommandButton
Public aCommands(1 To 42) As New clsButton 
Private Sub CommandButton_Click()
Z_Marko As String
Z_Makro = CommandButton.Caption
Application.Run Replace(Z_Makro, " ", "_", 1)
End Sub
Gruß
Ludmila

Anzeige
hab ich doch geschrieben! owT
05.02.2014 14:24:10
Rudi

AW: Commandbutton automatisch erstellen
05.02.2014 14:40:35
Ludmila
Hallo Rudi,
das habe ich überlesen.
ich musste nach im Start2 nur ändern
Set aCommands(ii + 36).cmdButton = objcmdButton statt 37 auf 36
Warum weiss ich nicht.
Aber jetzt funktioniert es super!
Herzlichen Dank!
Gruß, Ludmila
;

Forumthreads zu verwandten Themen

Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
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
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Optionsbutton in Userform abhängig von Zelle
Zelle

Hallo,
ich habe drei Optionsbuttons in einer Userform. Alle gehören zu einer Gruppe.
es kann also immer nur eine Option gewählt sein.
Beim Aufruf der Userform soll eine Option in Abhängigkeit des Wertes in Zelle A1
"voreingestellt" werden.
Dazu habe ich im Userform_Initializ...
26.01.2009 12:04:00
Thread-ID: 1043821
3 Beiträge
Auswahlbutton oder Zelle mit Auswahlfunktion
Michael

In einer Reihe von untereinander stehenden Zellen möchte ich aus einem anderen Blatt bzw. einer anderen Datei einzelne Daten auswählen (aus einer Spalte mit mehreren Hundert vergebenen Auftragsnummer).
Diese ausgewählte Auftragsnummer soll sich dann in das aktive Feld eintragen.
Beispie...
02.03.2009 11:09:27
Thread-ID: 1055472
4 Beiträge
Anzeige
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Zellinhalt mit Makro als Wert einfügen
Patricia

Hallo
ich möchte gerne mit unten stehenden Makro, den Inhalt einer Zelle bzw. mehreren Zellen als nur Wert automatisch einfügen. Habe ich sonst immer mit strg c-inhalte einfügen-werte gemacht. Das ist aber bei manchen Kalk. wegen vieler verschiedener Werte, sehr aufwendig. Mein problem ist...
27.10.2009 20:38:51
Thread-ID: 1112362
4 Beiträge
Anzeige
TAB-Sprung von Zelle in Sheet zu CommandButton
Zelle

Hallo Excel-Experten,
mir stellt sich folgendes Problem:
Ich habe ein Worksheet, das in den Spalten A-G (in nur einer Zeile) Werte enthält.
Rechts neben diesen Werten befindet sich ein CommandButton.
Nun springe ich per Tab durch die jeweiligen Zellen und tippe händisch Werte ei...
10.11.2009 13:51:22
Thread-ID: 1115852
3 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:37:43
Thread-ID: 1125900
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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