VBA Wenn Aussagen mehrzeilige

Question

Spanning Im Moment haben ich diesen Code:

For Each ARange In ws.Range("L1:L28000").Rows 
    If ARange(1).Value = "John" Or ARange(1).Value = "Thomson" Or ARange(1).Value = "Mattson" Or ARange(1).Value = "Powers" Or ARange(1).Value = "Hermkens" Or ARange(1).Value = "Licka" Or ARange(1).Value = "Fout" Or ARange(1).Value = "Marrin" Or ARange(1).Value = "Fleming" Or ARange(1).Value = "Waiblinger" Or ARange(1).Value = "Lambertson" Or ARange(1).Value = "Solis" Or ARange(1).Value = "Deot" Or ARange(1).Value = "Large" Or ARange(1).Value = "Gannon" Or ARange(1).Value = "FAUGHNAN" Or ARange(1).Value = "COMPLIANCE" Or ARange(1).Value = "Jacobs" Or ARange(1).Value = "Powers" Or ARange(1).Value = "TSH" Or ARange(1).Value = "WRONG LOCATION CODE" Then 
     If DRange Is Nothing Then 
      Set DRange = ARange 
     Else 
      Set DRange = Union(DRange, ARange) 
     End If 
    End If 
Next ARange 

jedoch die erste if-Anweisung alle eine Zeile ist, kann ich mich nicht ohne Scrollen lesen kann, kann der Code noch immer noch aufgebrochen werden funktioniert wie beabsichtigt?

Answer 1

If _ 
    ARange(1).Value = "John" Or ARange(1).Value = "Thomson" Or _ 
    ARange(1).Value = "Mattson" Or ARange(1).Value = "Powers" Or _ 
    ARange(1).Value = "Hermkens" Or ARange(1).Value = "Licka" Or _ 
    ARange(1).Value = "Fout" Or ARange(1).Value = "Marrin" Or _ 
    ARange(1).Value = "Fleming" Or ARange(1).Value = "Waiblinger" Or _ 
    ARange(1).Value = "Lambertson" Or ARange(1).Value = "Solis" Or _ 
    ARange(1).Value = "Deot" Or ARange(1).Value = "Large" Or _ 
    ARange(1).Value = "Gannon" Or ARange(1).Value = "FAUGHNAN" Or _ 
    ARange(1).Value = "COMPLIANCE" Or ARange(1).Value = "Jacobs" Or _ 
    ARange(1).Value = "Powers" Or ARange(1).Value = "TSH" Or _ 
    ARange(1).Value = "WRONG LOCATION CODE" _ 
Then 
    If DRange Is Nothing Then 
     Set DRange = ARange 
    Else 
     Set DRange = Union(DRange, ARange) 
    End If 
End If 

Answer 2

Gefällt mir das?

If ARange(1).Value = "John" Or _ 
    ARange(1).Value = "Thomson" Or _ 
    ARange(1).Value = "Mattson" Or _ 
    ARange(1).Value = "Powers" Or _ 
    ARange(1).Value = "Hermkens" Or _ 
    ARange(1).Value = "Licka" Or _ 
    ARange(1).Value = "Fout" Or _ 
    ARange(1).Value = "Marrin" Or _ 
    ARange(1).Value = "Fleming" Or _ 
    ARange(1).Value = "Waiblinger" Or _ 
    ARange(1).Value = "Lambertson" Or _ 
    ARange(1).Value = "Solis" Or _ 
    ARange(1).Value = "Deot" Or _ 
    ARange(1).Value = "Large" Or _ 
    ARange(1).Value = "Gannon" Or _ 
    ARange(1).Value = "FAUGHNAN" Or _ 
    ARange(1).Value = "COMPLIANCE" Or _ 
    ARange(1).Value = "Jacobs" Or _ 
    ARange(1).Value = "Powers" Or _ 
    ARange(1).Value = "TSH" Or _ 
    ARange(1).Value = "WRONG LOCATION CODE" Then