| Von |
Hecke |
| Am |
04. November 2007 um 16:38:50 |
| Frage |
Hallo Forum,
lasse mir mit folgenden Code eine Zeile markieren:
Private Sub cmdmarkieren_Click()
Dim zei As Long
For zei = 1 To Range("M120").End(xlUp).Row
Select Case Cells(zei, 5)
Case "AAQ", "ABA"
Cells(zei, 5).EntireRow.Interior.ColorIndex = 22
Case Else
Cells(zei, 5).EntireRow.Interior.ColorIndex = xlNone
End Select
Next zei
End Sub
das klappt auch.
Nur habe ich folgendes Problem:
Es werden nur die Zeilen markiert die in der Spalte E die Übereinstimmung mit dem Case haben, jedoch muss auch noch in der Spalte R nachgesehen werden ob eine Übereinstimmung vorhanden ist und auch markiert werden.
Wie kann ich den Code dahin vervollständigen.
Habe folgendes versucht, klappt aber nicht...
Select Case Cells(zei, 18)
Case "AAQ", "ABA", "ABZ"
Cells(zei, 5).EntireRow.Interior.ColorIndex = 22
Case Else
Cells(zei, 5).EntireRow.Interior.ColorIndex = xlNone
End Select
Next zei
End Sub
Danke
Gruß
Hecke |
|
Zum Seitenanfang