Filtern mit Optionsgruppe

[Suarts]

Hallo brauche Hilfe,
ich hab in meinem Endlosformular eine Optionsgruppe und folgenden VBA Code:
If Rahmen185 = 2 Then
Me.Filter = "Verantwortlichkeit = 'US&FM' "

ElseIf Rahmen185 = 3 Then
Me.Filter = "Verantwortlichkeit = '1' "

ElseIf Rahmen185 = 4 Then
Me.Filter = "Verantwortlichkeit = '2' "

ElseIf Rahmen185 = 5 Then
Me.Filter = "Verantwortlichkeit = ???

Ich möchte bei der Nummer 5 dass Verantwortlichkeit '1' und 'US&FM' zusammen gefiltert wird.
Wie müsste das dann aussehen? Kann mir da jemand helfen?

Danke und Gruß

 

[Dukel]

Nur geraten:

Me.Filter = "Verantwortlichkeit = 'US&FM' OR Verantwortlichkeit = '1'"

 

[andyfau]

Vielleicht zur Ergänzung:
Ich finde in solchen Fällen eine select-case-Anweisung übersichtlicher.
Und vorher Filter ausschalten und nur bei gültigen Optionswerten Filter einschalten....

Private Sub Rahmen185_AfterUpdate()

Me.FilterOn = False

Select Case Rahmen185
  Case 2
     Me.Filter = "Verantwortlichkeit = 'US&FM' "
  Case 3
     Me.Filter = "Verantwortlichkeit = '1'"
  Case 4
     Me.Filter = "Verantwortlichkeit = '2' "
  Case 5
     Me.Filter = "Verantwortlichkeit = 'US&FM' OR Verantwortlichkeit = '1'"
  Case Else
     MsgBox "Ungültige Option"
     Exit Sub
End Select
 
Me.FilterOn = True
End Sub

 

[Suarts]

Funktioniert wie gewollt... Super!
Ich danke euch vielmals.
Gruß