Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Zelle leer dann grau

Wenn Zelle leer dann grau
28.10.2014 23:09:49
Ben
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle leer dann grau
28.10.2014 23:36:16
{Boris}
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

AW: Wenn Zelle leer dann grau
29.10.2014 07:07:54
Uwe
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
Anzeige

390 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige