Gruppe
Allgemein
Problem
Wie kann ich die in einem Tabellenblatt festgelegten Bereichsnamen ermitteln und durch Kommentare anzeigen lassen?
StandardModule: basMain
Sub Bereiche()
Dim cmt As Comment
Dim oName As Name
Dim sName As String
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
For Each oName In ActiveWorkbook.Names
sName = Right(oName, Len(oName) - InStr(oName, "!"))
sName = "Name: " & oName.Name & vbLf & "Bereich: " & sName
With Range(oName).Cells(1)
If Not .Comment Is Nothing Then
.Comment.Delete
End If
Set cmt = .AddComment(sName)
End With
cmt.Shape.TextFrame.AutoSize = True
Next oName
End Sub