Office: Makros und Zellfarben

Hi,

habe ein Problem mit der farblichen Darstellung von Zellen / Spalten, die mittels einem Makro rot, wenn das angegebene datum kleiner als das aktuelle ist und weiss, bzw. keine Farbe, wenn das Datum gleich o. grösser als das aktuelle ist und wenn gar keine Angaben in der Zelle vermerkt sind.

Könntet ihr mal drüber schauen, denn ich kann machen was ich will, die richtige Farbe finde ich nicht. Das Einzige was funktioniert sind die Zellen mit einem wert von kleiner als das aktuelle Datum, diese werden mittels Farbcode 255 rot eingefärbt.

PHP:

Sub datum()
'
' Makro1 Makro
'

'


For t = 2 To 200






If Cells(t, 1) < Date Then
Cells(t, 1).Interior.Color = 255 '  rot

If Cells(t, 1) = "" Then
Cells(t, 1).Interior.Color = 2 '  weiss
End If

Else
Cells(t, 1).Interior.Color = 2 '  weiss
End If




Next t

End Sub


Danke und Gruss,

Reinhold

 

Hallo Reinhold,

Da gibt es so einiges was hier nicht stimmt:

1) If Cells(t, 1) = "" Then prüft ob die Zelle leer ist und zwar als Text. Wenn Du eine leere Zelle im Standardformat hast greift das schon nicht.
2) hast Du 2 End ifs drin. Das macht so keinen Sinn.
3) nach dem ersten If sollte ein elseif kommen und nicht einfach ein weiteres if. Also If, Elseif, Else

Aber viel wichtiger: Warum verwendest Du nicht einfach die bedingte Formatierung von Excel? Das wäre doch sicher einfacher für Dich.

VG
Michael

 

Hallo Reinhold,

abgesehen von dem, was Michael bereits ausgeführt hat, sind die Farbkonstanten nicht korrekt.

Code:

Sub Datum_Einfaerben()

  Dim t As Integer

  For t = 2 To 200
  
    With Cells(t, 1)
      If .Value < Date Then
        .Interior.Color = vbRed    '= 255 = &HFF = RGB(255,0,0)
      ElseIf .Value = "" Then
        .Interior.Color = vbWhite  '= 16777215 = &HFFFFFF = RGB(255,255,255)
      Else
        .Interior.Color = vbWhite  '
      End If
    End With
  
  Next t

End Sub