Hallo Leute!

Wie kann ich mit VBA Bereiche farbig formatieren? Ich habs mit "Makro aufzeichnen" probiert und das ist nach paar Veränderungen rausgekommen (With t3 .....End With): 

'Tabellenblatt "Mengeneingabe": Menge (Spalten G-I) farbig markireren, wenn keine Menge steht

    lz2 = .Range("D65536").End(xlUp).Row

    If .Range("D65536") <> "" Then lz2 = 65536
        On Error Resume Next
            
        For z2 = .Cells(Rows.Count, 7).End(xlUp).Row To lz2
        
            If .Range("G:H") = "" Then
            
            .Range("G:H").Select
            
                With Selection.Interior
                  .Pattern = xlSolid
                   .PatternColorIndex = xlAutomatic
                    .Color = 10066431
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
                
                Else
                
                .Range("G:H").Select
                
                 With Selection.Interior
                    .Pattern = xlNone
                   .TintAndShade = 0
                   .PatternTintAndShade = 0
                End With
                
             End If
    Next z2
    

Der Code soll eigentlich folgendes machen: 

ich habe 2 Tabellenblätter (t1 und t3).  Von t1 werden in Spalten A-F die Daten automatisch in t3 übertragen.In t3 sind in Spalte G-I werden Zahlen manuell eingetragen. Jetzt soll der Code schauen, wo noch die Zahlen in G-I noch zu den jeweiligen Spalten von A-F (hier habe ich Spalte D genommen) einzutragen sind und diese leere Zellen mit der bestimmten Farbe markieren. Wenn die Zahlen eingetragen werden, soll es die farbige Markierung wieder rausnehmen. 

Ich hoffe, ihr könnt mir weiterhelfen! Danke euch!

VG