Office: (Office 2016) Wenn Zellen leer, dann Spalte grau einfärben

Hallo zusammen,

ich möchte in 5 Tabellenblättern per Code die Spalte B6:B370 nach Inhalt bzw. leeren Inhalten durchsuchen.

Wenn zb. B6 leer ist dann färbe die Spalte von A6:P6 grau ein.
Wenn zb B46 leer ist dann färbe die Spalte von A46:P46 grau ein. usw.
Wenn B <>"" dann in dieser Zeile nichts machen.
Usw. Ich hab im Netz auch schon so was ähnliches gefunden, bekomme es aber nicht ganz auf meine Bedürfnisse.
Kann mir bitte jemand helfen?

HTML:

Sub Einfaerben()
 ' Suche in Spalte B letzte gefüllte Reihe
         nRow = Cells(Rows.Count, 2).End(xlUp).Row
         For iCounter = nRow To 1 Step -1


 With Selection.Interior
         .ColorIndex = 15     ' grau
         .Pattern = xlSolid
     End With
    
     If Cells(iCounter, 2).Value = "" Then
             Rows(iCounter).Select
 With Selection.Interior
         .ColorIndex = 15     ' grau
         .Pattern = xlSolid
     End With
     End If
    Next iCounter
End Sub

 

Hallo,

folgendes VBA-Makro müsste deine Anforderungen erfüllen. Es ist in ein allgem. Codemodul zu speichern.
Es überprüft jeweils das aktive Arbeitsblatt.

Code:

Option Explicit

Sub EinfaerbenZeile()
   Dim lngZeileNr As Long
   
 ' Spaltenbereich B6:B370 überprüfen, ob leere Zellen vorliegen:
 ' Daher die Zellen der Spalte B in den Zeilen 6:370 testen:
   For lngZeileNr = 6 To 370
     If IsEmpty(Cells(lngZeileNr, 2)) Then
       'Zellen dieser Zeile im Spaltenbereich A:P grau einfärben:
       With Cells(lngZeileNr, 1).Resize(1, 16).Interior
         .ColorIndex = 15
         .Pattern = xlSolid
       End With
     End If
   Next lngZeileNr
   
End Sub

 

Guten Morgen,

genau was ich gesucht hab, vielen Dank!

Grüße Marcel