Nochmal Interior.ColorIndex
04.07.2003 13:02:47
Olli
jetzt habe ich folgendes vor. Ich moechte, wenn ich in Spalte 3 eine Zelle markiere, dann soll Excel fuer die Zeit des Markiertseins in der gleichen REihe, aber in Spalte 1 den Interior.ColorIndex auf Rot=3 setzten. Wenn keine Zelle in Sp. 3 mehr markiert ist, soll Excel den Interior.ColorIndex auf den Ursprungswert zuruecksetzen.
Wie bekomme ich dieses "Spalte 3 unselect" -> wechsel Zellfarbe ins Makro'
Habt ihr ungefaehr verstanden was ich machen will, oder war's schlecht erklaert?
Mein Code:
Sub Highlight()
Dim irow As Long
Dim icolumn As Integer
Dim a As Integer
irow = ActiveCell.Row
icolumn = ActiveCell.Column
a = ActiveCell.Offset(0, 3).Interior.ColorIndex
ActiveCell.Offset(0, 3).Interior.ColorIndex = 3
'wenn ActiveCell sich aendert, dann
ActiveCell.Offset(0, 3).Interior.ColorIndex = a
End Sub
Vielen Dank im Voraus
Viele Gruesse
Olli