Zelle farblich markieren

nok106 · 29.05.2007

Hallo Excelfreunde !

In meiner Tagestabelle habe ich den folgenden Code erstellt,
der beim öffnen der Datei das aktuelle Datum markiert.
Nun möchte ich die Zelle noch farblich kennzeichnen.

Code:

Option Explicit
Private Sub Workbook_Open()
   With Tabelle1
   .Cells(Day(Date) + 2, (Month(Date))).Select
   End With
End Sub

Hat jemand eine Idee ob das geht und wenn ja - Wie ?

Einstweilen herzlichen Dank an alle, die sich für mich bemühen.

MfG Odje

Matjes · 29.05.2007

Hallo nok106,

wenn du den makro wie folgt erweiterst, wird der Zell-Hintergrund knallrot gesetzt.

gruß Matjes

Code:

Private Sub Workbook_Open()
   With Tabelle1
   .Cells(Day(Date) + 2, (Month(Date))).Select
   Selection.Interior.ColorIndex = 3
   End With
End Sub

nok106 · 30.05.2007

Hallo Matjes,

für deine Hilfe besten Dank.

Gruß Odje

nok106 · 31.05.2007

Hallo Matjes,

noch eine Bitte:

Wie könnte man beim Datumwechsel die vorhergehende Zellen-Markierung löschen ?

Ich habe mit Interior.ColorIndex = xlColorIndexNone verschiedene Versuche gestartet,
bekomme das Ding aber nicht geschaukelt.

Gruß Odje

Matjes · 31.05.2007

Hallo nok106,

da kannst du 2 Wege gehen:

a) den gesamten möglichen Bereich beim öffnen farblos setzen

Code:

Private Sub Workbook_Open()
    With Tabelle1
     .Range(.Cells(1+2, 1), .Cells(31+2, 12)).Interior.ColorIndex = xlColorIndexNone
     .Cells(Day(Date) + 2, (Month(Date))).Select
     Selection.Interior.ColorIndex = 3
   End With
End Sub

b) beim Schliessen der Datei, die Zelle wieder farblos setzen
(klappt nur bei Nicht-Nachtarbeitern

)

Code:

Private Sub Workbook_Close()
    With Tabelle1
     .Cells(Day(Date) + 2, (Month(Date))).Select
     Selection.Interior.ColorIndex = xlColorIndexNone
   End With
End Sub

Gruß Matjes

nok106 · 31.05.2007

Hallo Matjes,

Danke.

Gruß Odje

Zelle farblich markieren

nok106

Matjes

nok106

nok106

Matjes

nok106

Zelle farblich markieren

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums