Hallo Tommy,
sofern ich Dich richtig verstanden habe, soll eine Abfrage prüfen, ob in Spalte D ein Kommentar existiert. Wenn ja, sollen die Spalten 1-3 gelb eingefärbt werden. Aber was ist ein "doppelter" Kommentar?
Hier der Code:
Sub workbook_open()
Call kommentare
End Sub
Sub kommentare()
Application.OnTime Now + TimeValue("00:00:5"), "kommentare"
For Each x In ActiveSheet.Range(Cells(1, 4), Cells(Rows.Count, 4).End(xlUp))
If Not x.Comment Is Nothing Then
Range(Cells(x.Row, 1), Cells(x.Row, 3)).Interior.ColorIndex = 6
End If
Next x
End Sub
Das erste Makro öffnet beim Start Deines Dokuments und ruft das andere Makro auf. Dieses läuft dann durchgehen, und färbt alle 5 Sekunden die Spalten 1-3 gelb, sofern in Spalte D ein Kommentar existiert. Bei Probleme den Code anpassen oder eben nachfragen ;-)
lg Y
|