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

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
Anzeige
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
Anzeige
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
Anzeige
DANKE ALLES SUPER GEKLAPPT ! OT
12.05.2005 09:01:07
Thomas
1
Fein! Und bitte schrei nicht so ;o)
12.05.2005 10:23:10
MichaV

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige