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

Commandbutton dynamisch erstellen

Forumthread: Commandbutton dynamisch erstellen

Commandbutton dynamisch erstellen
05.08.2007 03:34:00
Leo
Hallo alle zusammen,
Ich brauche ein wenig Hilfe um CommandButtons dynamisch zu erstellen.
ICh habe eine TAbelle, bei der ab Zeile 41 bis zu einer bestimmten Zeile x_Zeile Daten eingefügt werden.
Nun möchte ich für jede Zeile einen entsprechenden CommandButton haben, um eine bestimmte Funktion leos_function an den Daten auszuführen.
Die auszuführende Sub und auch die zu erzeugenden Buttons sollen sich z.B. im Tabellenblatt 2 befinden.
ICh habe zwar schon einige ähnliche Beiträge gefunden, aber keiner hat mir richtig weitergeholfen!!
mfg
Leo

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Commandbutton dynamisch erstellen
05.08.2007 03:58:00
Leo
P.S.: Der Name der jeweiligen Buttons soll von Zeile 41 an mit 1 beginnen bis zum Ende halt; also z.B. CommandButton_1, CommandButton_2, .....

AW: Commandbutton dynamisch erstellen
05.08.2007 03:59:25
Leo
P.S.: Wäre Cool wenn gleich eine fertige SUB rausspringen würde!!

AW: Commandbutton dynamisch erstellen
05.08.2007 09:45:00
Nepumuk
Hallo Leo,
mal ein Beispiel: https://www.herber.de/bbs/user/44769.xls
Gruß
Nepumuk

Anzeige
AW: Commandbutton dynamisch erstellen
05.08.2007 12:17:10
Leo
Vielen Dank!!!!!
Das ist genau das was ich gesucht habe!!!
Endlich ist das Kopfzerbrechen vorbei!!
mfg Leo

AW: Commandbutton dynamisch erstellen
05.08.2007 12:57:56
Leo
Noch eine kleine Frage!!
Wie muss ich den Code für das Löschen ändern, damit nur ab Zeile 41 in der Spalte 1 alle Commandbuttons gelöscht werden?
With Tabelle2
'delete old buttons
For Each objOLEObject In .OLEObjects
If TypeOf objOLEObject.Object Is MSForms.CommandButton Then _
objOLEObject.Delete
Next
End With

Anzeige
AW: Commandbutton dynamisch erstellen
05.08.2007 13:48:00
Nepumuk
Hallo Leo,
da hast du in deiner Frage nichts dazu geschrieben, sonst hätte ich das schon berücksichtigt.
Du musst die Position der Buttons in der Tabelle abfragen. Das musst du auch in der Prozedur Assign (prcAssign) denn sonst werden deine schon bestehenden Buttons auch an die Klasse verwiesen.
Und noch was, die Klasse ist ein temporäres Objekt, die Prozedur Assign muss also bei jeden öffnen der Mappe gestartet werden, sonst sind die Buttons ohne Funktion.
Gruß
Nepumuk

Anzeige
AW: Commandbutton dynamisch erstellen
05.08.2007 22:03:00
Leo
Hallo Nepumuk,
kannst du mir vielleicht die Änderung von prcAssign() posten, damit bloß die CommandButtons in der 1. Spalte (und vielleicht auch erst ab Zeile 41) von der Sub beachtet werden?

Private Sub prcAssign()
Dim objOLEObject As OLEObject
Dim lngCounter As Integer
For Each objOLEObject In Tabelle2.OLEObjects
If TypeOf objOLEObject.Object Is MSForms.CommandButton Then
lngCounter = lngCounter + 1
ReDim Preserve objCommandButton(1 To lngCounter)
Set objCommandButton(lngCounter) = New clsCommanbutton
Set objCommandButton(lngCounter).prpSetCommandButton = _
objOLEObject.Object
End If
Next
End Sub


Ausserdem bringt er bei bei folgernder Zeile
Application.OnTime Time + TimeSerial(0, 0, 1), "prcAssign"
bei Time folgenden Fehler:
Fehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden
mfg
Leo

Anzeige
AW: Commandbutton dynamisch erstellen
07.08.2007 11:15:00
Renee
Hi Leo,
Versuch es mal mit diesem Ersatz.
Die Identifikation erfolgt allerding über die Caption, statt über die Zellposition!

Public Sub prcCreateButton()
Dim objOLEObject As OLEObject
Dim lngRow As Long, lngCounter As Long
Const cFixName = "CommandButton_"
With Tabelle2
'delete old buttons
For Each objOLEObject In .OLEObjects
If TypeOf objOLEObject.Object Is MSForms.CommandButton _
And Left(objOLEObject.Object.Caption, Len(cFixName)) = cFixName Then _
objOLEObject.Delete
Next
'insert new buttons
For lngRow = 41 To .Cells(.Rows.Count, 1).End(xlUp).Row
lngCounter = lngCounter + 1
Set objOLEObject = .OLEObjects.Add(ClassType:= _
"Forms.CommandButton.1", Left:=.Columns(2).Left, Top:=.Cells(lngRow, 2).Top, _
Width:=.Cells(lngRow, 2).Width, Height:=.Cells(lngRow, 2).Height)
With objOLEObject
.Name = cFixName & CStr(lngCounter)
With .Object
.Caption = "CommandButton_" & CStr(lngCounter)
.TakeFocusOnClick = False
End With
End With
Next
End With
Application.OnTime Now() + TimeSerial(0, 0, 1), "prcAssign"
End Sub


Greetz Renee

Anzeige
AW: Commandbutton dynamisch erstellen
07.08.2007 17:56:00
Leo
Vielen Dank Renee!!
;

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
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
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
Anzeige
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