Clever-Excel-Forum

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

Hallo,

versuche anstelle

Code:
.Interior.ColorIndex = Red

Code:
= vbRed

mfg

Code:
= vbRed

Da spuckter mir leider einen Laufzeitfehler 9 aus.

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.

DerNetzer

Fennek

DerNetzer

GMG-CC