VBA dynamische Userform mit Radio-Button

Hallo Forum,
auf der Basis eines Beispiels von Hajo Ziplies auf dessen Internetseite habe ich für mich - und ausschließlich für den privaten Gebrauch - eine Funktion entwickelt, um mit Hilfe von Radio-Buttons eine bequeme Antwort des aktuellen Anwenders zu erhalten.
Die Userform sieht inzwischen gut aus. Auch das Umschalten von einem Knopf auf den anderen funktioniert. Doch das war es auch schon. Was mir jetzt noch fehlt, ist die Frage: wie bekomme ich mit, dass einer der Radio-Buttons gedrückt wurde, und zwar welcher? Außerdem hätte ich gerne auch einen Command-Button für die Funktion "Abbruch".
Die Userform ist immer nur für einen einmaligen Gebrauch bestimmt.
Vor dem .Show und vor dem .Remove ist ein "Stop" eingebaut, um sich bestimmte Informationen anschauen zu können.
Mein Ziel ist es, die Position des ausgewählten Button-Textes im Array als Ergebnis zurückzugeben. Ob das von 1 bis x, oder von 0 bis x sein wird, muss sich noch zeigen. Abbruch ist dann auf jeden Fall eine Position vor der kleinsten; also 0 oder -1.
Der Code ist hier zu finden: https://www.herber.de/bbs/user/153736.txt
Wer kann mir weiterhelfen?
Leider läßt es Excel nicht zu, dass ein einmal verwendeter Name für die Userform nochmals benutzt werden darf, ohne dass die Mappe geschlossen und neu geöffnet wurde. Deshalb scheidet die Vorgabe eines festen Namens aus und ich muss mir zusätzlich noch Gedanken machen, wie ich Userforms automatisch löschen kann. Dabei hilft mir vermutlich der Standardname "Userform" mit einer zusätzlichen Zahl dahinter. Es wäre also denkbar, alle Userforms mit solch einem Namen bei jedem Durchlauf zu löschen. Das ist allerdings nur eine Fleißaufgabe und kein Problem für das Forum.
Gruß Joschi

Insgesamt ein schönes Beispiel Uwe. Aber für einen Anfänger vielleicht etwas overkill und "zu mauslastig" ;-)
Hier ist ein Beispiel, das sich auf die dynamische Erzeugung von Steuerelementen inklusive Events konzentriert. Das ist ein Beispiel, dass ich mal in noch einfacherer Form auf StackOverflow veröffentlicht habe. (Ohne Array, in dem die Steuerelemente gesammelt werden). Ich habe das auf Deutsch kommentiert, ansonsten ist es Englisch geblieben.
Eine leere UF erstellen und folgendes in den Code Teil kopieren:


Option Explicit
Dim comSampleBtn() As clsClickEventsComBut 'Array mit dem Namen der Klasse als Datentyp
Private Sub UserForm_Initialize()
Dim comButTemp As MSForms.CommandButton 'Temporaerer Button
Dim commandButtonIndex As Byte 'Aktueller Button
Dim btnCount As Byte 'Anzahl der gewuenschten Buttons
btnCount = 3 'Anzahl der gewuenschten Buttons festlegen (sinnvoll für dieses Beispiel zwischen 1 und 5)
ReDim comSampleBtn(btnCount) 'Array mit der festgelegten Anzahl von Buttons dimensionieren
'Schleife fuer alle zu platzierenden Buttons
For commandButtonIndex = 1 To btnCount
'Button als temporaeren Button erstellen
Set comButTemp = Me.Controls.Add("Forms.commandbutton.1", "CommandButton" & commandButtonIndex, True)
With comButTemp
'Button platzieren
.Left = 50
.Top = 25 * commandButtonIndex 'für Platzierung untereinander
.Height = 20
.Width = 100
.Caption = "Sample Button " & commandButtonIndex
End With
'Ein Element vom Datentyp unserer Klasse ins Array aufnehmen
Set comSampleBtn(commandButtonIndex) = New clsClickEventsComBut
'Temporaeren Button und Event (siehe Klasse) in Array zusammenfueren
Set comSampleBtn(commandButtonIndex).ComButSample = comButTemp
'Den temporaeren Button loeschen
Set comButTemp = Nothing
Next commandButtonIndex
End Sub

Ein Klassenmodul mit dem Namen clsClickEventsComBut anlegen und folgenden Code reinkopieren:


Option Explicit
Public WithEvents ComButSample As MSForms.CommandButton
Private Sub ComButSample_Click()
MsgBox "You clicked the sample button: " & UserForm1.ActiveControl.Name & Chr(13) & "With the caption: " & UserForm1.ActiveControl.Caption
End Sub

Die UF kann einfach über den "Play" Button in der IDE gestartet werden. Die Kommentare sollten zur Erklärung ausreichen.
Viele Grüße,
Zwenn
PS: Das ist der Thread auf SO:
https://stackoverflow.com/questions/58801868/add-click-method-to-dyn-button-at-vba-not-work/58803508#58803508

VBA dynamische Userform mit Radio-Button

Forumthread: VBA dynamische Userform mit Radio-Button

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Dynamische Userform mit Radio-Buttons in VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

VBA dynamische Userform mit Radio-Button

Forumthread: VBA dynamische Userform mit Radio-Button

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Dynamische Userform mit Radio-Buttons in VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread