Labels ein ausblenden nach Wert in Textbox

[omron2003]

Hallo Forum,

ich suche eine Möglichkeit drei Labels (Label1,Label2, Label3) ein bzw. aus zu blenden,
wenn im Textfeld1 ein bestimmter Wert steht.

z.B.

in Textfel1 steht "offen" dann soll Label1 eingeblendet und Label2 und Label3 ausgeblendet werden,
steht in Textfeld1 "bearbeiten" soll Label2 eingeblendet und Label1 und Label3 ausgeblendet werden.
oder steht im Textfeld1 "erledigt" soll Label3 eingeblendet und Label1 und Label2 ausgeblendet werden.

Besten Dank im Voraus
Gruß
omron2003

[RPP63]

Moin!
Woran scheitert es denn?
Es gibt schließlich die Label.Visible-Eigenschaft.
Der Rest ist doch nur ein wenig Fleißarbeit.

Gruß Ralf

[omron2003]

Hallo,

ich habe es mit einer If Anweisung versucht (siehe Code),
hier funktioniert aber nur die erste Anweisung "öffen", bei der zweiten und dritten passiert
nichts.

Code:

Private Sub ComboBox2_Change()
If ComboBox2 = "offen" Then
   Label1.Visible = True
   Label2.Visible = False
   Label3.Visible = False
ElseIf ComboBox2 = "bearbeiten" Then
   Label1.Visible = False
   Label2.Visible = True
   Label3.Visible = False
ElseIf ComboBox2 = "erledigt" Then
   Label1.Visible = False
   Label2.Visible = False
   Label3.Visible = True
End If

[RPP63]

Dann zeige doch mal die Datei.
Ich sehe keinen Fehler.

[omron2003]

ich habe nun die Excel-Mappe geschlossen und neu geöffnet,
jetzt funktioniert der Code ???

Nochmals Danke

Gruß
omron2003

[Gast 123]

Hallo

der Code geht auch kürzer, ist nur eine andere Denkweise.  Ich mache es dann so:

mfg Gast 123

Code:

Private Sub ComboBox2_Change()
   Label1.Visible = False
   Label2.Visible = False
   Label3.Visible = False
If ComboBox2 = "offen" Then
   Label1.Visible = True
ElseIf ComboBox2 = "bearbeiten" Then
   Label2.Visible = True
ElseIf ComboBox2 = "erledigt" Then
   Label3.Visible = True
End If

[Kuwer]

der Code geht auch kürzer, ist nur eine andere Denkweise. 

Code:

Private Sub ComboBox2_Change()
  With ComboBox2
    Label1.Visible = .Value = "offen"
    Label2.Visible = .Value = "bearbeiten"
    Label3.Visible = .Value = "erledigt"
  End With
End Sub