Optionsfeld

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Optionsfeld
von: joel
Geschrieben am: 20.04.2005 15:43:01
hallo zusammen,
ich komme bei folgenden problemen nicht so recht weiter:
ich hab zwei optionsfelder und ein textfeld.
ist das eine optionsfeld aktiv, dann sollte das textfeld beschreibbar sein
ist das zweite optionsfeld aktiv, soll das textfeld nicht beschreibbar sein und am besten auch der hintergrund schraffiert oder dunkel.
hab bisher folgenden code probiert:


Private Sub OptionButton1_Click()
If: OptionButton1.ControlSource = True. Then
    TextBox1.BackColor = &H80000005
Else: TextBox1.Locked = True
End If
End Sub


ein andere frage noch:
ist es möglich in ein textfeld eine art schnellsuche einzubauen. das heißt, dass wenn ich drei buchstaben eines wortes (definierte liste)eintippe, mir dann alle worte zur auswahl aufgelistet werden, die mit diesen buchstaben beginnen?
herzlichen dank,
gruß
J*
Bild

Betrifft: AW: Optionsfeld
von: MichaV
Geschrieben am: 21.04.2005 09:26:20
Hi,
ich habs ohne UserForm ausprobiert, müsstest Du ggf. noch ein bischen anpassen.
Frage 1 (wenn das eine Frage war, und ich hoffe, ich habe die richtige Antwort zur nicht gestellten Frage):


      
Private Sub OptionButton1_Change()
 TextBox1.Enabled = 
Not OptionButton1.Value 'wenn Opti AN, dann Text AUS, sonst AN
 If Not TextBox1.Enabled Then
   TextBox1.BackColor = vbRed 
'wenn Text AUS
 Else
   TextBox1.BackColor = vbWhite 
'wenn Text AN
 End If
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0

Frage 2:


      
Private Sub TextBox1_Change() 'Dein Eingabebereich
Dim Zelle As Range
TextBox2.Text = "" 
'Dein Ausgabebereich löschen

For Each Zelle In Range("A1:A30") 'Deine Liste
  If Left(Zelle.Value, Len(TextBox1.Text)) = TextBox1.Text Then
    TextBox2.Text = TextBox2.Text & Zelle.Value & vbCrLf
  
End If
Next
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0


Hoffe, das hilft.
Gruß- Micha
PS: Rückmeldung wäre nett.
Bild

Betrifft: AW: Optionsfeld
von: joel
Geschrieben am: 22.04.2005 11:41:47
hallo micha,
sorry, dass ich erst so spät melde.
vielen dank, beide "fragen" beantwortet!
gruß
j*
Bild

Betrifft: Na das freut mich! o.w.T.
von: MichaV
Geschrieben am: 22.04.2005 19:48:46

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Optionsfeld"