wie kann ich erreichen, dass alle Zellen von B7:B1500 rot markiert werden, die keinen Kommentar enthalten?
Gruß und danke vorab
Tom
Sub NoComment()
Dim rng As Range
For Each rng In Range("B7:B1500")
If rng.Comment Is Nothing Then rng.Interior.ColorIndex = 3
Next rng
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort