Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auswahlelemente mit CommandButton verknüpfen

Auswahlelemente mit CommandButton verknüpfen
31.08.2006 16:02:07
Liepins
Hallo liebes Forum,
ich weiß wiedermal nicht weiter...
Ich habe ein Formular mit 2 OptionButtons und einer Listbox, die 5 Auswahloptionen hat.
Nun soll
1.) eins der OptionButtons angeklickt werden und
2.) ein Element der Listbox.
In Abhängigkeit von der Auswahl soll nun
bei betätigen eins CommandButton ein Makro ausgeführt werden.
Insgesamt sind es zehn verschiedene für die Kombinationen aus:
Listenelement 1 bis 5 + OptionButton 1
Listenelement 1 bis 5 + OptionButton 2
Wie könnte ich das ganze sinnvoll mit dem CommandButton verknüpfen?
Für einen Lösungsansatz wäre ich sehr dankbar!
Liebe Grüße,
R.Liepins

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahlelemente mit CommandButton verknüpfen
31.08.2006 16:26:46
Rudi
Hallo,
mein Vorschlag:

Private Sub CommandButton1_Click()
Dim bytAuswahl As Byte
bytAuswahl = 2 ^ (ListBox1.ListIndex + 1) + OptionButton2 * -1
Select Case bytAuswahl
Case 2:         MsgBox "1.Listeintrag, OB1"
Case 3:         MsgBox "1.Listeintrag, OB2"
Case 4:         MsgBox "2.Listeintrag, OB1"
Case 5:         MsgBox "2.Listeintrag, OB2"
Case 8:         MsgBox "3.Listeintrag, OB1"
Case 9:         MsgBox "3.Listeintrag, OB2"
Case 16:       MsgBox "4.Listeintrag, OB1"
Case 17:       MsgBox "4.Listeintrag, OB2"
Case 32:       MsgBox "5.Listeintrag, OB1"
Case 33:       MsgBox "5.Listeintrag, OB2"
End Select
End Sub

Gruß
Rudi
Anzeige
AW: Auswahlelemente mit CommandButton verknüpfen
31.08.2006 16:41:55
Liepins
Vielen Dank!
Es funktioniert tatsächlich!
Nur: könntest du vielleicht kurz erläutern
was zu tun wäre um einen 6. Listeneintrag hinzuzufügen?
Wär sehr toll!
Lg,
R. Liepins
AW: Auswahlelemente mit CommandButton verknüpfen
31.08.2006 18:18:48
Rudi
Hallo,
mal ein bisschen weniger kompliziert. Vielleicht durchblickst du dann das System. ;-)

Private Sub CommandButton1_Click()
Dim bytAuswahl As Byte
bytAuswahl = 2 * (ListBox1.ListIndex + 1) + OptionButton2 * -1
Select Case bytAuswahl
Case Is < 2: MsgBox "Kein Listeneintrag gewählt"
Case 2:         MsgBox "1.Listeintrag, OB1"
Case 3:         MsgBox "1.Listeintrag, OB2"
Case 4:         MsgBox "2.Listeintrag, OB1"
Case 5:         MsgBox "2.Listeintrag, OB2"
Case 6:         MsgBox "3.Listeintrag, OB1"
Case 7:         MsgBox "3.Listeintrag, OB2"
Case 8:         MsgBox "4.Listeintrag, OB1"
Case 9:         MsgBox "4.Listeintrag, OB2"
Case 10:       MsgBox "5.Listeintrag, OB1"
Case 11:       MsgBox "5.Listeintrag, OB2"
Case 12:       MsgBox "6.Listeintrag, OB1"
Case 13:       MsgBox "6.Listeintrag, OB2"
End Select
End Sub

Gruß
Rudi
Anzeige
AW: Auswahlelemente mit CommandButton verknüpfen
01.09.2006 08:55:40
Liepins
Vielen Dank!
Jetzt ist das "Wunder" auch für mich nachvollziehbar ;)
Lg
R.Liepins

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige