Zeilenweise suchen,eins runter usw.
25.07.2005 11:29:55
Egon
Mit dieser Sub möchte ich ab Zeile 11, Spalte 5 bis 12, Werte auswerten(einfärben).
Diese Min-Werte stehen jeweils in Spalte 13.
Dann möchte ich eine Zeile darunter"ansteuern" und in der Zeile 12 wie oben beschrieben nach Min-Werten suchen(einfärben). dann Zeile 13 usw....
Man kann natürlich dieses Makro für jede Zeile schreiben-funzt.
Ist natürlich bei einigen hundert Zeilen .......
Private Sub CommandButton2_Click()
Worksheets("Tabelle1").Activate
For S = 5 To 12
If Cells(11, S).Value <= Cells(z, Minspalte).Value Then
Cells(z, S).Interior.ColorIndex = 3
Else
Cells(z, S).Interior.ColorIndex = 4
End If
Next S
End Sub
Danke u.schönen Gruß
Egon