Zellfarbe durch Makro ändern
10.11.2003 15:12:26
mehmet
hab hier folgenden Code-Auszug:
If Cells(iRow, 12).Value = "GNBV" Then
Set rngSource = Worksheets(1).Cells(iRow, 13) 'Preis
Set rngTarget1 = Worksheets(6).Cells(Rows.Count, 10).End (xlUp).Offset(1, 0) 'Preis -> Tagesbericht in Spalte 10
Cells(iRow, 13).Copy rngTarget1 'Preis
Worksheets(6).Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).Value = rngTarget1 * v '30% von GNBV
End If
In dieser IF-Abfrage soll die Zelle farblich markiert werden, wenn die Bedingung gegeben ist. Die Zellen sind ...Cells(Rows.Count, 10) und ...Cells(Rows.Count, 11) sollen farblich markiert werden. Danke für Vorschläge!!!