VBA gibt es sowieso um diesen Code zu optimieren?

Question

Momentan arbeiten an etwas, das erfordert, dass ich den folgenden Code verwenden. Ich frage mich nur, ob es sowieso kürzen oder kombinieren soll. Jede Hilfe wäre großartig. Ich entschuldige mich dafür, dass ich in den letzten Tagen so viele Fragen gestellt habe.

Sub RoutingCheck() 


    Dim i As Long, c1 As Range, c2 As Range, c3 As Range, c4 As Range 

    For i = 2 To 456 
     Set c3 = Range("C" & i) 
     Set c4 = Range("D" & i) 

If c3.Value <> 1 Or c3.Value <> 2 Or c3.Value <> 3 Or c3.Value <> 4 Or c3.Value <> 5 Or c3.Value <> 6 Or c3.Value <> 98 Then c3.Interior.color = vbRed 
If c3.Value = 1 Or c3.Value = 2 Or c3.Value = 3 Or c3.Value = 4 Or c3.Value = 5 Or c3.Value = 6 Or c3.Value = 98 Then c3.Interior.color = vbGreen 


End If 
Next i 

End Sub 

Answer 1

Genau das, was Select Case dreht sich alles um, versuchen Sie den Code unten:

Sub RoutingCheck() 

Dim i As Long, c1 As Range, c2 As Range, c3 As Range, c4 As Range 

For i = 2 To 456 
    Set c3 = Range("C" & i) 
    Set c4 = Range("D" & i) 

    Select Case c3.Value 
     Case 1 To 6 
      c3.Interior.Color = vbGreen 
     Case Else 
      c3.Interior.Color = vbRed 
    End Select 

Next i 

End Sub