Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Wenn Zelle leer dann grau

Betrifft: Wenn Zelle leer dann grau von: Ben
Geschrieben am: 28.10.2014 23:09:49

Hallo Zusammen, :)

ich würde gerne Zellen in der Range("C1:Z30") farbig markieren, wenn diese leer sind.

Normalerweise würde ich es über die bedingte Formatierung machen, aber ich möchte die Range gerne variabel gestalten.

In Zelle A1 steht die Anzahl der Zeilen bis wohin die Range nach unten gehen soll.

A1 = Anzahl2(B1:B200)

t = Range("A1")

Range("C1:Z" t)

Wie kann ich es mit VBA lösen, dass in dieser variablen Range, alle Zellen die leer sind, grau gefärbt werden? :)

leider fehlt mir hierbei jeglicher Ansatz :(

Ich hoffe, das ich mich verständlich ausgedrückt habe :)

Danke und Gruß
Ben

  

Betrifft: AW: Wenn Zelle leer dann grau von: {Boris}
Geschrieben am: 28.10.2014 23:36:16

Hi Ben,

Sub Til()
Dim C As Range
Range ("C1:Z" & Range("A1")).Interior.ColorIndex = xlNone
For Each C in Range ("C1:Z" & Range("A1"))
  If C = "" Then C.Interior.ColorIndex = 48
Next C
End Sub
VG, Boris


  

Betrifft: AW: Wenn Zelle leer dann grau von: Uwe Küstner
Geschrieben am: 29.10.2014 07:07:54

Hallo Ben,

so was würde auch gehen:

Sub Til_2()
  On Error Resume Next
  With Range("C1:Z" & Range("A1").Value)
    .Interior.ColorIndex = xlNone
    .SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 48
  End With
  On Error GoTo 0
End Sub
Gruß Uwe