Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
Diskutiere Zelle farblich markieren im Microsoft Office Suite Forum im Bereich Office-Produkte; Hallo Excelfreunde !
In meiner Tagestabelle habe ich den folgenden Code erstellt,
der beim öffnen der Datei das aktuelle Datum markiert.
Nun...
#1
N
nok106
Bekanntes Mitglied
Themenersteller
Dabei seit
10.09.2005
Beiträge
108
Reaktionspunkte
0
Ort
Brunsbüttel
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
#2
M
Matjes
Bekanntes Mitglied
Dabei seit
22.08.2001
Beiträge
2.308
Reaktionspunkte
0
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
#3
N
nok106
Bekanntes Mitglied
Themenersteller
Dabei seit
10.09.2005
Beiträge
108
Reaktionspunkte
0
Ort
Brunsbüttel
Hallo Matjes,
für deine Hilfe besten Dank.
Gruß Odje
#4
N
nok106
Bekanntes Mitglied
Themenersteller
Dabei seit
10.09.2005
Beiträge
108
Reaktionspunkte
0
Ort
Brunsbüttel
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
#5
M
Matjes
Bekanntes Mitglied
Dabei seit
22.08.2001
Beiträge
2.308
Reaktionspunkte
0
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