Userform

Forumthread: Userform
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Userform

Userform

31.03.2020 22:17:10

Karsten

Hallo,
ich möchte per VBA Buttons in ein UserForm einfügen und komme da nicht weiter. Kann mir jemand helfen?
Vielen Dank
Karsten

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform

31.03.2020 22:25:40

Patrick
AW: Userform

01.04.2020 13:48:35

Karsten
AW: Button auf Userform einfügen

01.04.2020 11:12:20

Dieter(Drummer)
AW: Button auf Userform einfügen

01.04.2020 13:50:28

Karsten

AW: Userform

31.03.2020 22:25:40

Patrick

Möchtest du diese per Code einfügen lassen, nach einem bestimmten Vorgang oder soll die Frage viel allgemeiner sein? Wie man überhaupt Buttons in eine Userform einfügt?

AW: Userform

01.04.2020 13:48:35

Karsten

Hallo Patrick,
Danke für Deine Rückmeldung. Ich habe in einem Tabellenblatt die Möglichkeit anzukreuzen, welche Buttons ich haben will (1-8). Für alle, die angekreuzt sind, soll das Programm im Userform1 einen CommandButton erstellen. Ich habe aber auch schon eine andere Möglichkeit gefunden: Ich erstelle manuell 8 Buttons und blende diese über die Eigenschaft "visible" einfach aus, wenn sie nicht gebraucht werden.

AW: Button auf Userform einfügen

01.04.2020 11:12:20

Dieter(Drummer)

Guten Morgen Karsten,
habe da etwas im Netz gefunden. Lies es aber vorher durch ...
Wäre auch schon, wenn Du auf die Antwort/Frage von Patrick, ihm eine Rückantwort geben würdest.
Gruß Dieter(Drummer)
Evtl. Lösung aus:
http://www.office-loesung.de/ftopic315196_0_0_asc.php
Und so erstellst du einen CommandButton, der dann auch bleibt:

Sub CreateNewCmd()
Dim NewCommandButton As CommandButton
Set NewCommandButton = ThisWorkbook.VBProject.VBComponents("Userform1").designer.Controls.Add("  _
_
Forms.CommandButton.1")
NewCommandButton.Name = "Irgendeinna2me"
NewCommandButton.Caption = Range("A1").Text
NewCommandButton.Top = 2
NewCommandButton.Left = 2
NewCommandButton.Width = 180
NewCommandButton.Height = 30
End Sub