Bestimmte Zellbereiche einfärben

[DerNetzer]

Guten Morgen,

ich habe eine umfangreiche Tabelle in der auch Leerzeilen enthalten sind. Nun möchte Tabellenbereiche farblich voneinander abheben.
Ich habe es mit folgendem VBA Befehl geschafft alle Zellen die einen beliebigen Inhalt haben zu umrahmen:

Code:

Sub Rahmen()
For Each Zelle In Range("B1:Y1316")
  With Zelle
    If .Value <> "" Then
      .BorderAround Weight:=xlThin
    End If
  End With
Next
End Sub

Nun habe ich versucht auf dem selben Wege bestimmte Bereiche einzufärben, in dem ich den Befehl wie folgt verändert habe:

Code:

Sub Farbe()
For Each Zelle In Range("B1:G1316")
  With Zelle
    If .Value <> "" Then
      .Interior.ColorIndex = Red
    End If
  End With
Next
End Sub

Bekomme jedoch einen Fehler ausgegeben. Laufzeitfehler 13.
Hat hier jemand einen Tip was ich falsch mache?

Wichtig ist mir, dass nur die Zellen in dem Bereich eingefärbt werden, die auch einen Inhalt haben. Leerzeilen sollen außen vor bleiben.

bin für jeden Tip dankebar :)

Gruß
Michi

[Fennek]

Hallo,

versuche anstelle

Code:

.Interior.ColorIndex = Red

Code:

= vbRed

mfg

[DerNetzer]

Code:

= vbRed

Da spuckter mir leider einen Laufzeitfehler 9 aus.

[GMG-CC]

Moin,

Code:

Sub GMG()
  Dim c As Range
  For Each c In Range("B1:Y1316")
     If Not IsEmpty(c) Then
        c.Interior.Color = 255
     End If
  Next c
End Sub

Ich habe IsEmpty verwendet, weil eine Zelle als Funktionsergebnis ja auch "" enthalten kann und diese dann nicht leer ist. Sollten solche Zellen nicht eingefärbt werden, dann ist <>"" besser.