Kann man alle Kommentare ausblenden außer die markierte Zelle?
Es soll nur der Kommentar in der Markierten Zelle angezeigt werden! Spalte B
Danke
Gruß
Oraculix
Public Sub Test()
Dim objCell As Range
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If TypeOf Selection Is Range Then
For Each objCell In Selection
With objCell
If Not .Comment Is Nothing Then .Comment.Visible = True
End With
Next
End If
End Sub
Gruß
Application.DisplayCommentIndicator = xlNoIndicator
Gruß
Public Sub Test2()
Dim objCell As Range
Application.DisplayCommentIndicator = xlNoIndicator
If TypeOf Selection Is Range Then
For Each objCell In Selection
With objCell
If Not .Comment Is Nothing And .Column = 2 Then .Comment.Visible = True
End With
Next
End If
End Sub
Gruß Gerd