Moin,
kann ich nach einem Case, direkt eine If-Abfrage starten?
For L = 1 To UBound(arr)
For I = 1 To UBound(arr, 2)
Select Case arr(L, I)
Case "XXXX": Cells(L, I).Interior.ColorIndex = 4 'Anpassen
End Select
Select Case arr(L, I)
***Hier brauch ich eine Abfrage ob eine Zeile darüber ein XXXX vorkommt***
***Wenn kein XXXX in der Zeile darüber ist, dann Färben.
Case "XXXX": Cells(L - 1, I).Interior.ColorIndex = 4 'Anpassen
End Select
Select Case arr(L, I)
***Hier brauch ich eine Abfrage ob noch eine Zeile darüber ein XXXX vorkommt***
***Wenn kein XXXX in der Zeile darüber ist, dann Färben.
Case "XXXX": Cells(L - 2, I).Interior.ColorIndex = 4 'Anpassen
End Select
Next
Next
|