bei meinem Problem komme ich nicht weiter und bitte daher um Hilfe. Folgendes Problem: ein bestimmter, definierter Bereich (d17:o89)(=12 Spalten = Monate im Jahr) erfährt jeden Monat eine Aktualisierung. Dafür soll das Makro im definierten Bereich die letzte Zelle anspringen, für die Eintragungen vorliegen. Diese Spalte soll bis in die letzte Zeile grau eingefärbt werden. Leider komme ich mit meiner bisherigen Syntax nicht weiter. Hat vielleicht jemand eine Idee? Vielen Dank im voraus ... Grüsse Chriz
Dim Zelle As Range
Dim MyAreaOnVK As Range
Set MyAreaOnVK = Range("d17:o89")
For Each Zelle In MyAreaOnVK
If Zelle.Value = "" Then
'Markier die vorherige Spalte bis zur letzten Zeile (c89)
End If
Next Zelle