OptionButton

Forumthread: OptionButton

OptionButton

11.05.2005 11:25:45

Thomas

Hallo Liebe Excel Freunde,
Ich benötige mal wieder eure Hilfe.
Ich möchte Erreichen das wenn ich den OptionButton25 drücke, das dann in der
ComboBox1 das Wort "keine" drin steht. Also wenn der optionButton nicht gedrückt wird soll auch in der ComBoBox1 nichts stehen, sie soll dann leer bleiben. Beide Boxen befinden sich auf eine UserForm.
Für eure Hilfe bin ich dankbar.
Gruß
Thomas aus Hamburg

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: OptionButton

11.05.2005 11:41:38

MichaV
OT. DANKE SUPER KLAPPT

11.05.2005 11:45:29

Thomas
Bitte Gerne oT

11.05.2005 11:46:33

MichaV
Zweite Frage OptionButton

11.05.2005 12:00:03

Thomas
AW: Zweite Frage OptionButton

11.05.2005 12:49:17

MichaV
DANKE ALLES SUPER GEKLAPPT ! OT

12.05.2005 09:01:07

Thomas
Fein! Und bitte schrei nicht so ;o)

12.05.2005 10:23:10

MichaV

AW: OptionButton

11.05.2005 11:41:38

MichaV

Hi,
in den UserForm- Code:

Private Sub OptionButton25_Change()
If OptionButton25 Then 'wenn "An"
  ComboBox1.Text = "keine"
Else                   'wenn  "Aus"
  ComboBox1.Text = ""
End If
End Sub
Gruß- Micha
PS: Rückmeldung wäre nett

OT. DANKE SUPER KLAPPT

11.05.2005 11:45:29

Thomas

Danke

Bitte Gerne oT

11.05.2005 11:46:33

MichaV

Zweite Frage OptionButton

11.05.2005 12:00:03

Thomas

Ich boch mal, habe was vergessen ?
In meiner UserForm habe ich Sechs OptionButton für Mo. bis Sa.
für jeden Tag einen Button. Darunter wird über ein Kalendersteuerelement das Datum ausgewählt. Jetzt die Frage ist es möglich : das wenn ich das Datum ausgewählt habe und es in der TextBox7 steht, das sich dann der OptionButton gleich selber auswählt je nachdem was das Datum für ein Tag ist ?
Also 13.05.2005 ist Freitag und der OptionButton21 würd auf an gelegt.
Wie bekommt mann das hin.
Danke
Gruß
Thomas aus Hamburg

AW: Zweite Frage OptionButton

11.05.2005 12:49:17

MichaV

Hi,
versuch mal so, musst ein bischen anpassen.

Private Sub TextBox1_Change()
If IsDate(TextBox1.Text) Then
  'Wenn im Textfeld ein Datumswert steht
  Select Case Weekday(CDate(TextBox1.Text))
    Case vbSunday: OptionButton1 = True '1
    Case vbMonday: OptionButton2 = True '2
    Case 3: OptionButton3 = True 'Dienstag
    Case 4: ' Mittwoch usw. ....
  End Select
End If
End Sub
Gruß- Micha

DANKE ALLES SUPER GEKLAPPT ! OT

12.05.2005 09:01:07

Thomas

Fein! Und bitte schrei nicht so ;o)

12.05.2005 10:23:10

MichaV

Beliebteste Forumthreads (12 Monate)

Forumthread: OptionButton

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread