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
|