|
Hallo,
ich bin recht neu in VBA und wollte eigentlich nur ein kleines Macro schreiben um mir in einer Tabelle (100) Zeilen
eine bedingte Formatierung in jeder einzelnen Zeile von Hand sparen.
Machen soll das Ganze folgendes:
Ich habe immer eine Range von Beispielsweise A2:D2 .
Diese soll gelb markiert werden, wenn E2:U2 leer ist.
Also habe ich den Formatiervorgang einmal mit dem Macro-Recorder aufgenommen,
eine For-Schleife drumherumgestrickt und die Zeilennummer Variabel gemacht.
Jetzt passiert es nur, dass einfach alle Zeilen von A:D gelb sind, egal ob im jeweiligen E:U etwas steht.
Am Beispiel der ersten Zeile wird die gelbe Markierung nur in D2 entfernt, und auch nur wenn ich in H2 einen Wert eingebe.
Ich bin ein bisschen ratlos, was ich falsch gemacht habe.
Wäre super wenn mir jemand weiterhelfen könnte.
Sub nochmal()
'
' nochmal Macro
'
' Keyboard Shortcut: Ctrl+a
'
Dim counter As Integer
For counter = 2 To 118
Range("A" & counter & ":D" & counter).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=E" & counter & ":U" & counter & " =0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Next counter
End Sub
|