Excel format DATE - Visuel Basic

[Camilla.L]

Hej

 

Jag har en kolumn i mitt excel ark som har formatet DATE. De som inte hade några datum har fått "datumet" 00.01.1900. Jag ønskar att hitta dessa och markera dem med en annan farg, ur gor jag fora att sortera ut dessa, någon som vet?

 

 

Sub NotEnded1190()
   For RX = 2 To 10 ' 1435
       CX = 6
       If Worksheets("A (2)").Cells(RX, CX). = "00.01.1900" Then
           Worksheets("A (2)").Cells(RX, CX) = ""
           Worksheets(" A (2)").Cells(RX, CX).Interior.ColorIndex = 15
       Else
           Worksheets(" A (2)").Cells(RX, 28) = "OK"
       End If
   Next RX
End Sub

 

 

Tack på förhand!

mvh Camilla

Ed av Moderator - Visual Basic i Excel == Visual Basic for Applications == VBA

 

[inlägget ändrat 2009-06-30 11:53:30 av Monshi]

 

[inlägget ändrat 2009-06-30 11:53:55 av Monshi]

[henriko]

Jag kanske inte borde svara på Micrsosoft-frågor, då jag inte är troende. Men jag fick detta att funka på en gammal Excel i alla fall.

 

       If Cells(RX, CX) = "00.01.1900" Then
           Cells(RX, CX).Interior.ColorIndex = 15
           Cells(RX, 28) = ""
       Else
           Cells(RX, 15) = "OK"
       End If

 

Vad som skiljer är väl, ingen punkt i vilkorsraden. Och sedan bara antog jag att man vill tömma ok-kolumnen istället för datumkolumnen, annars behöver man väl inte byta färg?

 

[Monshi]

Borde väl räcka att kolla om värdet på cellen är noll på serievärdet för 1900-01-00 är just noll.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

[henriko]

Om man kan jämföra med 0 är ju det klart vettigare ur internationaliseringssynpunkt.