Used Range Beschränken
19.11.2019 13:18:08
Didi
ich beschäftige mich wieder mit VBA und habe gemerkt, dass meine Kenntnisse gravierend eingestaubt sind.
Ich habe eine Tabelle wo je nach Fälle die Felder in eine Farbe makiert werden, das funktioniert auch alles wunderbar.
Sobald ich aber das Feld lösche, verschwindet auch die Farbe, das ist auch so beabsichtigt.
Mein Problem ist nun, dass Felder die unabhängig von den Fällen sind auch wieder ihre Farbe verlieren.
Das Problem hängt mit der used.range zusammen, kann man diese einschränken?
Es wären bestimmte Zeilen die nicht mit einbezogen werden sollen wie z.B. A1:Z1 F1: Z6.
Option Explicit
Public Sub ColourChange1()
Dim itm As Range
Application.ScreenUpdating = False
Sheets("Test").Offset(1).Interior.ColorIndex = xlColorIndexNone
For Each itm In Sheets("Test").UsedRange.Offset(1)
If Not IsError(itm) Then
With itm
Select Case .Value2
Gruß Didi