Msgbox bei Auswahl von Opt_Feld/cbo_Feld

Hallo,
ich wollte eine Fehlermedung, bei nicht Auswahl von einem optionsfeld erzeugen.
Gerd L hat mir den folgenden Code geschrieben und es läuft auch:

If opt_1.Value Or opt_2.Value Then
'Mach was
Else
MsgBox "Bitte erst klicken", vbCritical + vbOKOnly, Fehler
Exit Sub
End If

Nun muss der Code mit einem Combobox verknüpft werden, sprich, wenn cbo- Auswahl 1 dann soll eine der optionsfeldern geklickt sein, sonst Fehlermeldung.
Wenn cbo- Auswahl 2, dann brauchen die optionsfelder nicht angeklickt werden und die Weiterbearbeitung soll möglich sein.
Habe folgendes versucht, klappt nicht:

If cbo_Test.Value = ("Auswahl 1") Then
opt_LA_Ja.Value  Or opt_LA_Nein.Value
Else
MsgBox "Es muss ein opt ausgewählt werden", vbCritical + vbOKOnly, Fehler
Exit Sub
End If

Gibts da ein Möglichkeit?
Konnte den Thread vom 02.07.2017 nicht mehr aktivieren und darum öffne ich ein neuer Beitrag.
Naki

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If cbo_Testcbo_Test.ListIndex = -1 Then MsgBox "In der Combobox ""cbo_Testcbo_Test"" wurde noch kein Wert ausgewählt" Exit Sub Else Select Case cbo_Testcbo_Test.Value Case "Auswahl 1" If opt_LA_Ja.Value Or opt_LA_Nein.Value Then MsgBox "Es muss ein opt ausgewählt werden", vbCritical + vbOKOnly, Fehler Exit Sub Else End If Case Else 'beliebiger anderer Wert ist ausgewählt End Select End If

If cbo_Testcbo_Test.ListIndex = -1 Then MsgBox "In der Combobox ""cbo_Testcbo_Test"" wurde noch kein Wert ausgewählt" Exit Sub Else Select Case cbo_Testcbo_Test.Value Case "Auswahl 1" If opt_LA_Ja.Value Or opt_LA_Nein.Value Then MsgBox "Auswahl +Options-Schaltfläche korrekt" Else MsgBox "Es muss eine Option ausgewählt werden", vbCritical + vbOKOnly, _ "Fehler bei ""Auswahl 1"" + Optionsschaltflächen" Exit Sub End If Case Else 'beliebiger anderer Wert ist ausgewählt MsgBox "In der Combobox ""cbo_Testcbo_Test"" wurde """ _ & cbo_Testcbo_Test.Value & """ ausgewählt", _ vbOKOnly + vbInformation, "Nur Auswahl in Combobox" End Select End If

If cbo_Testcbo.ListIndex = -1 Then MsgBox "In der Combobox ""cbo_Testcbo_Test"" wurde noch kein Wert ausgewählt" Exit Sub Else Select Case cbo_Testcbo.Value Case "Auswahl 1" If opt_LA_Ja.Value Or opt_LA_Nein.Value Then ' MsgBox "LA bestätigt" Else MsgBox "FEHLER", vbCritical + vbOKOnly, _ Exit Sub End If

Hallo Naki,
dein Code

if cbo_Testcbo.Value="Auswahl 1" then
opt_LA_Ja.Value Or opt_LA_Nein.Value
msgbox "FEHLER"
end if

hat in der 2. Zeile einfach eine nicht korrekte Synttax.
Du könntest es folgendermaßen probieren

    If cbo_Testcbo.Value = "Auswahl 1" And (opt_LA_Ja.Value Or opt_LA_Nein.Value) Then
MsgBox "Das passt"
ElseIf cbo_Testcbo.Value = "Auswahl 1" And Not (opt_LA_Ja.Value Or opt_LA_Nein.Value) Then
MsgBox "FEHLER"
Else
MsgBox "Alles andere ist erlaubt"
End If

Was ist die Besonderheit von Select Case?
Eigentlich nichts - es ergibt halt wesentlich überscihtlicheren Code, wenn man einen einzelnen Wert auf viele Werte prüfen möchte.

    Dim varWert As Long
varWert = 22
'Die Select-Konstruktion
Select Case varWert
Case 0
Case 1 To 10
Case 11, 12
Case 13 To 15
Case 16
Case 17 To 19
Case Is = 1 And varWert = 13 And varWert = 17 And varWert

Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Msgbox bei Auswahl von Opt_Feld/cbo_Feld

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Msgbox bei Auswahl von Opt_Feld/cbo_Feld

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread