färbt nicht alles ein
11.10.2018 11:11:35
Burak
ich habe zwei Spalten die mein Makro je nach Wert rot, gelb oder grün färbt.
Funktioniert auch bisher einwandfrei aber heute färbt er aus irgendeinem merkwürdigen Grund die eine Zelle nicht ein.
Code:
Sub farbe()
Dim Zelle As Range, Bereich As Range
With Worksheets("Linienauswertung - Grafiken")
Set Bereich = .Range("U2:U50")
For Each Zelle In Bereich
Zelle.Interior.ColorIndex = 0
Select Case Zelle.Value
Case ""
Zelle.Interior.ColorIndex = 0
Case Is https://www.herber.de/bbs/user/124562.xlsx
Hat jmd eine Idee?
Liebe Grüße
Burak
PS: habe diesmal hoffentlich alles richtig gemacht :)