title image


Smiley Re: In Tabelle immer Zeile mit aktuellem Datum makieren?
Hi Maja,



ich weiß nicht, ob dieser Code auch bei Excel2000 funktioniert



Dim raZelle As Range

Dim loletzte As Long

loletzte = IIf(IsEmpty(Worksheets("Tabelle1").Cells(Rows.Count, 1)), Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

For Each raZelle In Range("A1:A" & loletzte)

If raZelle = Date Then

raZelle.Select

raZelle.Interior.ColorIndex = 4

Else

raZelle.Interior.ColorIndex = xlNone

End If

Next raZelle



Der Code gehört in das Workbook_Open Ereignis

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: