![]() |
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 SubVG, 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 SubGruß Uwe
![]() |