Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Case Select bei Optionbuttons

Case Select bei Optionbuttons
18.03.2006 11:07:08
Jürgen
Hallo zusammen,
habe in einem Tabellenblatt eine ganze Reihe von Optionbuttons. Spreche sie jetzt mit If - ElseIf an. Gibt es auch die Möglichkeit es mit der CaseSelect-Methode zu machen?
Danke für einen Tipp.
Gruß Jürgen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Case Select bei Optionbuttons
18.03.2006 11:41:40
Nepumuk
Hallo Jürgen,
ein Beispiel für fünf Buttons:
Public Sub test()
    Dim strFlag As String
    Dim intIndex As Integer
    For intIndex = 1 To 5
        strFlag = strFlag & IIf(Tabelle1.Shapes("OptionButton" & _
            CStr(intIndex)).OLEFormat.Object.Object.Value, 1, 0)
    Next
    Select Case strFlag
        Case "00000": MsgBox "Keiner"
        Case "10000": MsgBox "Erster"
        Case "01000": MsgBox "Zweiter"
        Case "00100": MsgBox "Dritter"
        Case "00010": MsgBox "Vierter"
        Case "00001": MsgBox "Fünfter"
    End Select
End Sub

Ob das allerdings viel Sinn macht?
Gruß
Nepumuk

Anzeige
AW: Case Select bei Optionbuttons
18.03.2006 11:56:43
Jürgen
Hallo Nepumuk,
super,danke das hilft mir weiter.
Gruß Jürgen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige