Code vereinfachen Hilfe
24.09.2005 09:57:38
Egon
Ich schon wieder.
Mit diesem Code suche ich Min-Maxwertüberschreitungen. Min Max Werte steht in Spalte 13,14. Bei Über-Unterschreitungen werden Zellen Rot gemacht.
Der Code sollte geändert werden um nur noch in der Spalte 5 ab Zeile 11 bis nichts mehr drinsteht zu suchen.
Am Anfang müsste eine Abfrage if Isnumeric stehen (Manchmal steht ein Text drin, dann habe ich Fehlermeldung.
Sub Rot()
Worksheets("Tabelle1").Activate
Dim cRow As Integer
cRow = 11
Do While Cells(cRow, 5).Value <> ""
For s = 5 To 12 'Hier ändern
If Cells(cRow, s).Value <= Cells(cRow, 13).Value Or Cells(cRow, s).Value >= Cells(cRow, 14).Value Then
Cells(cRow, s).Interior.ColorIndex = 3 ' Rot machen
Else
Cells(cRow, s).Interior.ColorIndex = 2 'Weiss machen
End If
Next s
cRow = cRow + 1
Loop
End Sub
Herzlichen Dank im Voraus
Egon