If Anweisung

[Florian20]

Hallo liebe Community,

Ich hab mal wieder ein Problem   Die anderen sind ja bis jetzt super gelöst worden, dafür nochmal ein Danke schön.

Also Ich möchte eine If Anweisung erstellen mit 2 Bedingungen aber irgendwie hab ich grad ne Blockade drin könntet Ihr mir Helfen ?
Ich hab schon was geschrieben aber ich vermute da ist irgendwo ein Fehler der Debugger geht nicht an also Funktioniert der Code nur Macht er nichts.

Hier mein Code bisher:

Private Sub TextBox1Timer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Setzt den Wert 0 bei verlassen der ComboBox1 wieder wenn der Focus nicht mehr auf der Textbox ist und wenn keine Eingabe erfolgte
  If ComboBox1.ListIndex = 1 Or 2 Or 3 Then
    ElseIf TextBox1Timer.Value = "" Then
      ComboBox1.ListIndex = 0
      TextBox1Timer.SetFocus
      MsgBox "Bitte Geben Sie einen Wert für den Timer ein!", vbExclamation, " Fehler Info Box"
  End If

Vermutlich lieget es daran das ich den Code im TextBox1Timer_Exit Ereignis habe aber ich hoffe doch ihr könnt mir helfen oder einen neuen Denkansatz geben :19:
Ps: wenn ich die TextBox verlasse dann muss die Combobox den .listIndex =0 haben ganz wichtig

Lg Florian

[Werner.M]

Hallo Florian,

meinst du so?

Code:

Private Sub TextBox1Timer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Setzt den Wert 0 bei verlassen der ComboBox1 wieder wenn der Focus _
nicht mehr auf der Textbox ist und wenn keine Eingabe erfolgte
Select Case ComboBox1.ListIndex
   Case 1 To 3
       If TextBox1Timer = "" Then
           ComboBox1.ListIndex = 0
           TextBox1Timer.SetFocus
           MsgBox "Bitte Geben Sie einen Wert für den Timer ein!", _
           vbExclamation, " Fehler Info Box"
       End If
   Case Else
End Select
End If

Gruß Werner

[Florian20]

Hallo und Guten Tag Werner,

Super Danke das ist genau das was Ich gesucht habe Ich dachte gar nicht an eine case Anweisung
Danke für den Tollen Tipp es Funzt perfekt.

Lg Florian