Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.09.2020 13:46:57 |
Ghosty1967 |
|
|
|
15.09.2020 15:19:57 |
Mase |
|
|
240 ToggleButtons abfragen |
15.09.2020 15:21:54 |
Gast65108 |
|
|
|
15.09.2020 23:12:24 |
Mackie |
|
|
|
16.09.2020 11:54:43 |
Gast95621 |
|
|
|
16.09.2020 13:54:01 |
Gast97890 |
|
|
|
16.09.2020 19:03:44 |
Gast18794 |
|
|
|
16.09.2020 19:10:40 |
Mase |
|
|
|
16.09.2020 19:46:37 |
Gast80374 |
|
|
|
16.09.2020 20:33:02 |
Mase |
|
|
|
21.09.2020 16:43:25 |
Gast44480 |
|
|
Von:
Gast65108 |
Datum:
15.09.2020 15:21:54 |
Views:
552 |
Rating:
|
Antwort:
|
Thema:
240 ToggleButtons abfragen |
Hallo Ghosty,
ich bin jetzt nicht der perfekte Klassenprogrammierer, aber vielleicht hilft Dir der nachfogende Mustercode beim Umsetzen Deines Vorhabens:
Die Begrifflichkeiten wie Userformname usw. bitte anpassen:
'In ein Modul
Sub Starte_Userform()
Test_Userform.Show 'anpassen
End Sub
'In das Userform-Modul
Dim cToggles() As New clsToggle
Sub UserForm_Initialize()
Dim Ctrl As control, i As Integer
For Each Ctrl In Test_Userform.Controls
If TypeName(Ctrl) = "ToggleButton" Then
i = i + 1
If i > 0 Then
ReDim Preserve cToggles(1 To i)
Set cToggles(i).MyToggle = Ctrl
End If
End If
Next Ctrl
End Sub
'In ein Klassenmodul clsToggle
Private WithEvents MyToggle As MSForms.ToggleButton
Private Sub MyToggle_Click()
'Ausgabe geklickter Button, Wert=>Wahr oder Falsch
Debug.Print MyToggle.Name, MyToggle.Value
End Sub
viele Grüße
Karl-Heinz
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.09.2020 13:46:57 |
Ghosty1967 |
|
|
|
15.09.2020 15:19:57 |
Mase |
|
|
240 ToggleButtons abfragen |
15.09.2020 15:21:54 |
Gast65108 |
|
|
|
15.09.2020 23:12:24 |
Mackie |
|
|
|
16.09.2020 11:54:43 |
Gast95621 |
|
|
|
16.09.2020 13:54:01 |
Gast97890 |
|
|
|
16.09.2020 19:03:44 |
Gast18794 |
|
|
|
16.09.2020 19:10:40 |
Mase |
|
|
|
16.09.2020 19:46:37 |
Gast80374 |
|
|
|
16.09.2020 20:33:02 |
Mase |
|
|
|
21.09.2020 16:43:25 |
Gast44480 |
|
|