Peggy hat mehrere Zellen in einem Arbeitsblatt, denen Kommentare zugeordnet sind. Wenn sie mit der rechten Maustaste auf eine dieser Zellen klickt, kann sie im resultierenden Kontextmenü die Option Kommentar bearbeiten auswählen, um den Kommentar zu bearbeiten. Wenn der Kommentar einer war, den sie in einer früheren Sitzung mit Excel erstellt hat, ist es nicht ungewöhnlich, dass der Kommentar an einer anderen Stelle im Arbeitsblatt geöffnet wird, manchmal mehrere Bildschirme entfernt. Peggy fragt sich, ob es eine Möglichkeit gibt, den Kommentar neben der Zelle anzuzeigen, zu der er gehört.

Dieser Zustand kann durch verschiedene Dinge verursacht werden. Es ist beispielsweise möglich, dass Sie beim vorherigen Bearbeiten des Kommentars auf den Rand des Kommentarfelds geklickt und den Kommentar an eine andere Stelle im Arbeitsblatt gezogen haben. Wenn Sie dies getan haben, merkt sich Excel, wohin der Kommentar verschoben wurde, und zeigt ihn immer an der gespeicherten Stelle an.

Eine weitere häufige Ursache ist, dass Sie Ihre Daten filtern, was dazu führt, dass einige der Zeilen oder Spalten ausgeblendet werden, während der Filter vorhanden ist. Wenn Sie dann Kommentare in den gefilterten Zellen bearbeiten, haben Sie den Kommentar effektiv vom ursprünglichen Speicherort an einen neuen Speicherort „verschoben“, der der auf dem Bildschirm sichtbaren Zeile oder Spalte zugeordnet ist. Wenn Sie später den Filter entfernen und versuchen, den Kommentar zu bearbeiten, merkt er sich, wo er zuvor bearbeitet wurde, und dort findet die neue Bearbeitungsmöglichkeit statt.

In beiden Fällen besteht die normale Lösung darin, nur zu grinsen und es zu ertragen. Verschieben Sie die Zellen manuell von ihrem Standort zu dem gewünschten Ort.

Wenn Sie jedoch dieses Problem mit vielen Zellen haben, kann das manuelle Verschieben eine echte Belastung sein. In diesem Fall möchten Sie möglicherweise ein Makro verwenden, um das Verschieben für Sie durchzuführen.

Sub MoveComments1()

Dim cmt As Comment

For Each cmt In ActiveSheet.Comments         With cmt           .Shape.Top = .Parent.Top           .Shape.Left = .Parent.Offset(0, 1).Left         End With     Next cmt End Sub

Dieses Makro verschiebt alle Kommentare in einem Arbeitsblatt so, dass ihre obere linke Ecke mit der oberen rechten Ecke der Zelle übereinstimmt, an die sie angehängt sind. Dadurch werden die Kommentare direkt neben ihren Zellen platziert, wo Sie sie haben möchten.

Wenn Sie alle Kommentare in einer gesamten Arbeitsmappe anpassen und jedes der Kommentarfelder automatisch anpassen möchten, können Sie diese Variante des Makros verwenden:

Sub MoveComments2()

Dim wbk As Workbook     Dim wks As Worksheet     Dim cmt As Comment     Dim rngC As Range     Dim lArea As Long

Set wbk = ActiveWorkbook

On Error Resume Next

For Each wks In wbk.Worksheets         For Each cmt In wks.Comments             With cmt                 .Shape.TextFrame.AutoSize = True                 If .Shape.Width > 200 Then                     lArea = .Shape.Width  .Shape.Height                     .Shape.Width = 200                     .Shape.Height = (lArea / 200)  1.1                 End If                 .Shape.Top = .Parent.Top                 .Shape.Left = .Parent.Offset(0, 1).Left             End With         Next cmt     Next wks End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9703) gilt für Microsoft Excel 2007, 2010 und 2013. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: