Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bereichsnamen ermitteln und als Kommentare anzeigen

Gruppe

Name

Problem

Wie kann ich die in einem Tabellenblatt festgelegten Bereichsnamen ermitteln und durch Kommentare anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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