VBA Select Case ist mehrere Kriterien

Question

Ich habe das folgende Stück Code und möchte es ein wenig ändern. Grundsätzlich möchte ich mit jedem case is ein Nebenkriterium überprüfen. Zum Beispiel Case is = "Lottery" Ich möchte hinzufügen AND range("SalesChannel").value = "SMB". Ich möchte dann replizieren, dass für jeden Fall ein anderer Wert verwendet wird (nicht SMB). Kann das gemacht werden?

Private Sub CommandButton1_Click() 

With LoginPassword.TextBox1.Value 
Select Case Me.TextBox1.Value 
    Case Is = "Lottery" 
     LoginPassword.Hide 
     SMB_Login 
     CalculateFinancials 
    Case Is = "Charity" 
     LoginPassword.Hide 
     DCS_Login 
     CalculateFinancials 
    Case Is = "Curfew" 
     LoginPassword.Hide 
     Campaign_Login 
     CalculateFinancials 
    Case Is = "Europe" 
     LoginPassword.Hide 
     Eureka_Login 
     CalculateFinancials 
    Case Is = "Promo" 
     LoginPassword.Hide 
     Promo_Login 
     CalculateFinancials 
    Case Is = "Sundew" 
     LoginPassword.Hide 
     Loyalty_Login 
     CalculateFinancials 
    Case Is = "Casino" 
     LoginPassword.Hide 
     MobilePricing.Hide 
     Range("Network").ClearContents 
    Case Is = "RedDevil" 
     HardwareUpdateYesNo 
    Case Is = "Provision" 
     LoginPassword.Hide 
     MobilePricing.Hide 
     ProvisioningView 
    Case Else 
     MsgBox "Password Incorrect!", vbCritical + vbOKOnly, "Login Failed!" 
     TextBox1.Text = "" 
     TextBox1.SetFocus 
End Select 
End With 

End Sub 

Answer 1

Dies ist ein Beispiel Select Case mit mehreren Kriterien:

Option Explicit 

Public Sub TestMe() 

    Select Case True   
     Case 1 = 1 And True 
      Debug.Print 1 
     Case True And 2 = 5 
      Debug.Print 2 
     Case True And 5 = 5 And 6 = 7 
      Debug.Print 3 
    End Select 

End Sub 

In Ihrem Fall Sie einfach Ihre Bedingungen statt 1=1 oder True schreiben soll. So: Case Me.TextBox1.Value = "Lottery" and range("SalesChannel").value = "SMB" Aber lassen Sie Select Case True auf der Oberseite.