Herbers Excel-Forum - das Archiv

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

Excel-Beispiele zum Thema "Alle Zellen mit Kommentaren farblich markieren"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen