Alle Zellen mit Kommentaren farblich markieren



Excel-Version: 2000
nach unten

Betrifft: Alle Zellen mit Kommentaren farblich markieren
von: Ralph P.
Geschrieben am: 29.04.2002 - 11:46:36

Hallo.
Ich möchte in einer Excel-Tabelle alle Zellen farblich markieren, die einen Komentar enthalten. Mein Ansatzt ist dieser:

Sub mark()

laRow = Cells(Rows.Count, 1).End(xlUp).Row
laCol = Cells(Columns.Count).End(xlToLeft).Column


For col = 1 To laCol

For Row = 1 To laRow
Cell = col & Row
Cells(Row, col).Select
adr = ActiveWindow.RangeSelection.Address
adr1 = Replace(adr, "$", "")
If Range(adr1).Comment.Text = "" Then
GoTo weiter
Else
Cells(Row, col).ColorIndex = 6
Cells(Row, col).Pattern = xlSolid
weiter:
End If
Next Row
Next col

End Sub

Funktioniert aber nicht. Excel bringt den Fehler 91 : Objektvariable oder With-Blockvariable nicht festgelegt

nach oben   nach unten

Re: Alle Zellen mit Kommentaren farblich markieren
von: Ralph P.
Geschrieben am: 29.04.2002 - 12:09:17

Hat sich erledigt. Funktioniert mit folgendem Code: Sub mark() ' Mit diesem Makro werden alle Zellen mit einem Kommentar gelb markiert ' Diese Markierung beschränkt sich auf das aktive Sheet ' Zählt alle Zeilen (Rows) laRow = Cells(Rows.Count, 1).End(xlUp).Row ' Zählt alle Spalten (Columns) laCol = Cells(Columns.Count).End(xlToLeft).Column ' Für jede Spalte For col = 1 To laCol ' Für jede Zeile For Row = 1 To laRow ' Zelle auswählen Cells(Row, col).Select ' Check ob kein Kommentar vorhanden On Error Resume Next If Len(ActiveCell.Comment.Text) = 0 Then ' Wenn Komentar vorhanden Else With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With End If Next Row Next col End Sub

nach oben   nach unten

Etwas kürzer und etwas schneller
von: Martin Beck
Geschrieben am: 29.04.2002 - 13:45:07

Hallo Ralph, mit Schleife, aber etwas kürzer: Gruß Martin Beck

nach oben   nach unten

Re: Etwas kürzer und etwas schneller
von: Ralph P.
Geschrieben am: 29.04.2002 - 14:11:19

Danke Martin. Die letzte Lösung ist wirklich sehr effektiv.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Alle Zellen mit Kommentaren farblich markieren"