Clever-Excel-Forum

Hallo liebe Community,

Ich hab mal wieder ein Problem Blush

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

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

Hallo und Guten Tag Werner,

Super Danke das ist genau das was Ich gesucht habe Ich dachte gar nicht an eine case Anweisung Blush

Danke für den Tollen Tipp es Funzt perfekt.

Lg Florian

Florian20

Werner.M

Florian20