Codeänderung: zuerst Überschrift suchen
WalterK
Der Code färbt Zellen eines Bereiches außer in der Spalte 4 mit der Überschrift BEZEICHNUNG. Die Überschrift steht in Zeile 2.
Die Überschrift BEZEICHNUNG könnte auch in einer anderen Spalte stehen. Was muss im Code geändert werden, damit zuerst die Spalte mit der Überschrift BEZEICHNUNG gesucht wird und dann diese Spalte nicht eingefärbt wird.
Option Explicit
Sub BereichMarkieren()
Dim LCol As Long
LCol = Cells(2, Columns.Count).End(xlToLeft).Column
Range(Cells(3, 1), Cells(20, 3)).Interior.Color = 16764108
Range(Cells(3, 5), Cells(20, LCol)).Interior.Color = 16764108
End Sub