In meiner Tabelle sollen pro Zeile die Zellen der Spalten W bis AS auf Übereinstimmung mit dem .Value "ok" geprüft werden. Ich schaffe es nicht mit einer Anweisung die oben genannten Zellen auf einmal zu prüfen.
Ich kann die Prüfung mit einer mega langen AND Kette durchführen, würde es aber lieber in einem überschaubaren Quellcode durchziehen.
Bsp.:
Sub pruefen()
Dim iRow As Integer, iRowL As Integer
Set iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 4 To iRowL
If Cells(iRow, [Die Spalten W bis AS der aktuellen Zeile]).Value = "ok" Then
usw...
End Sub
alternative If Anweisung, die bei mir funktioniert:
If Cells(iRow, 23).Value = "ok" AND Cells(iRow, 24).Value = "ok" .... AND Cells(iRow, 45).Value = "ok" Then
usw...
Der Kursive Ansatz funktioniert ist jedoch viel zu umständlich. Wie kann ich das kürzen und die Übersichtlichkeit verbessern?