Excel: Hintergrund von Zellen täglich um 1 Zeile nach unten verschieben

batze · 17.02.2009

Hallo,
gibt es eine Möglichkeit, den Zellenhintergrund einer ganzen Zeile täglich um eine Zeile nach unten zu versetzen, damit die Markierung immer am richtigen Tag ist. Es gibt in dieser Tabelle aber keine richtige Datumsspalte!

Für Eure Hilfe schon jetzt recht herzlichen Dank!

Batze

kinn · 17.02.2009

hallo,
wenn ich das richtig verstanden habe, sollte dir das helfen.
http://support.microsoft.com/kb/508711/de#top

Gruß Sascha

batze · 17.02.2009

Hallo Kinn,
leider ist es das nicht.
Ich habe heute (17.02.) z. B. die Zeile 17 mit einem grauen Hintergrund hinterlegt.
Morgen, am 18.02., sollte dann der graue Hintergrund die Zeile 17 verlassen u. automatisch auf Zeile 18 springen,
obwohl sich in der Tabelle keine Datumsspalte befindet.

Danke
Batze

kinn · 17.02.2009

Wieso gibst du denn z.B. der Zelle in der selben Reihe kein Datum?
Dann könntest du mit einer bedingten Formatierung deinen Zellen mit der Formel =heute()
eine graue hinterlegung verpassen.

gruß Sascha

hahahaha · 17.02.2009

Hi Batze,

wenn du diesen code hier in deiner DieseArbeitsmappe schreibst, müsste es funktionieren.
Dann wird bei jedem öffnen der Arbeitsmappe geschaut, welches Datum heute ist und die Zeile für den Tag gekennzeichnet.

Code:

Private Sub Workbook_Open()
Dim introw As Integer

'hier wird bei allen Zeilen die Farbe entfernt
  Rows().Select
  With Selection.Interior
    .ColorIndex = xlNone
  End With

'hier wird der Variable introw der Teil des Datums übergeben, welcher den Tag beschreibt
  introw = DatePart(d, Now)

'hier wird die Zeile des Tages gefärbt
  Rows(introw).Select
  With Selection.Interior
    .ColorIndex = 15
  End With
End Sub

Excel: Hintergrund von Zellen täglich um 1 Zeile nach unten verschieben

batze

kinn

batze

kinn

hahahaha

Excel: Hintergrund von Zellen täglich um 1 Zeile nach unten verschieben

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums