Cellfarbe ändern per makro
31.01.2007 14:48:13
Ralf
Habe da mal ne Frage habe hier ein makro, womit ich in einem Tabellenblatt zum heutigen Datum wechsel.
Private Sub Workbook_Open()
Dim iRow As Integer
With Worksheets("Ralf")
iRow = WorksheetFunction.Match(CDbl(Date), .Columns(2), 0)
Application.Goto .Cells(iRow, 2), True
End With
Nun möchte ich noch, das die zellen des heutiigen datums noch rot makiert werden per makro
Das Datumsfeld zB B108 bis G110
Wenn ich das in worte fassen würde was ich mit dem makro erreich möchte würde ich es so ausdrücken
Active Celle (zb B108) bis celle G 110 selektieren und farbe ändern
Dieses in den oben genannten Makro mit einfügen wenn das möglich ist
MfG
Ralf