Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sichtbare Kommentare positionieren

Sichtbare Kommentare positionieren
ChrisW
Hallo Leute,
wie kann ich per VBA sichtbare Kommentare z.B. 1 cm rechts von der zugehörigen Zelle positionieren?
Meine Kollegin hat es geschafft alle Kommentare aus Ihrer Excel-Liste durch ein und ausblenden und filtern so zu verschieben, das man meterweise scollen muss um den passenden Kommentar zu einer Zelle zu finden.
D.h. wenn Sie einen Kommentar bearbeiten möchte, dann befindet er sich einige hundert Zeilen über der Zelle, total in der Größe verändert bzw nur in der Größe eines Punktes.
Das möchte ich per Makro korrigieren.
Bisher habe ich die Anzeigeposition beim überstreichen der Zelle und die Zellgröße per VBA verändert, aber es fehlt noch die automatische Positionierung des Kommentars beim permanenten Anzeigen des Kommentars.
Sub Kommentar()
Dim Com As Comment
For Each Com In ActiveSheet.Comments
Com.Shape.Placement = xlMoveAndSize
Com.Shape.OLEFormat.Object.AutoSize = True
Next Com
End Sub

Könnt Ihr mir da weiterhelfen?
Vielen Dank
Chris
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Schleife über SpecialCells(xlCellTypeComments)
03.02.2012 11:00:39
Matthias
Hallo
Vielleicht hilft Dir das weiter
Kommentar wird über der Nachbarzelle positioniert
Option Explicit
Sub PosMyComent()
Dim RnG As Range
On Error Resume Next
For Each RnG In Cells.SpecialCells(xlCellTypeComments)
If RnG.Comment.Visible = True Then
RnG.Comment.Shape.Top = RnG.Offset(, 1).Top
RnG.Comment.Shape.Left = RnG.Offset(, 1).Left
End If
Next
End Sub
Gruß Matthias
Anzeige
AW: Schleife über SpecialCells(xlCellTypeComments)
03.02.2012 15:42:37
ChrisW
Hallo Mathias,
genau was ich gesucht habe,
vielen Dank
Chris
;
Anzeige
Anzeige

Infobox / Tutorial

Sichtbare Kommentare in Excel korrekt positionieren


Schritt-für-Schritt-Anleitung

Um sichtbare Kommentare in Excel präzise zu positionieren, kannst Du die folgende VBA-Anleitung nutzen:

  1. Öffne Excel und lade die Arbeitsmappe, in der Du die Kommentare positionieren möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Wähle Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden VBA-Code ein:

    Sub Kommentar()
       Dim Com As Comment
       For Each Com In ActiveSheet.Comments
           Com.Shape.Placement = xlMoveAndSize
           Com.Shape.OLEFormat.Object.AutoSize = True
       Next Com
    End Sub
  5. Führe das Makro aus, indem Du im VBA-Editor auf Ausführen klickst oder F5 drückst.

Um die Kommentare 1 cm rechts von der zugehörigen Zelle zu positionieren, kannst Du den Code aus dem Beitrag von Matthias verwenden:

Option Explicit
Sub PosMyComent()
    Dim RnG As Range
    On Error Resume Next
    For Each RnG In Cells.SpecialCells(xlCellTypeComments)
        If RnG.Comment.Visible = True Then
            RnG.Comment.Shape.Top = RnG.Offset(, 1).Top
            RnG.Comment.Shape.Left = RnG.Offset(, 1).Left
        End If
    Next
End Sub

Häufige Fehler und Lösungen

  • Fehler: Kommentare sind nicht sichtbar.

    • Lösung: Stelle sicher, dass die Kommentare sichtbar sind. Überprüfe die Sichtbarkeitseinstellungen in den Zellen.
  • Fehler: Kommentare werden nicht korrekt positioniert.

    • Lösung: Überprüfe die Zellreferenzen im Code und stelle sicher, dass sie korrekt sind. Möglicherweise musst Du die Offset-Werte anpassen.
  • Problem: excel notiz einfügen fehlt.

    • Lösung: Stelle sicher, dass Du die richtige Excel-Version verwendest, die Kommentare unterstützt. In neueren Versionen findest Du die Funktion unter Überprüfen > Kommentar.

Alternative Methoden

Falls Du keine VBA-Makros verwenden möchtest, kannst Du auch die Kommentare manuell positionieren:

  1. Klicke mit der rechten Maustaste auf die Zelle mit dem Kommentar.
  2. Wähle Kommentar bearbeiten.
  3. Ziehe den Kommentar mit der Maus an die gewünschte Position.

Diese Methode kann jedoch zeitaufwendig sein, wenn Du viele Kommentare hast.


Praktische Beispiele

  1. Beispiel für das Verschieben eines Kommentars:

    • Du hast einen Kommentar in Zelle A1 und möchtest ihn in B1 anzeigen. Verwende den Code von Matthias, um dies automatisch zu erledigen.
  2. Anpassung der Größe:

    • Füge den Parameter Com.Shape.AutoSize = True in Deinen VBA-Code ein, um die Größe des Kommentars automatisch an den Inhalt anzupassen.

Tipps für Profis

  • Nutze benutzerdefinierte VBA-Funktionen, um Kommentare in andere Zellen zu verschieben. Dies kann durch das Erstellen von benutzerdefinierten Makros erfolgen, die spezifische Anforderungen erfüllen.
  • Erstelle eine Schaltfläche in Deiner Arbeitsmappe, die das Positionieren der Kommentare mit einem Klick ausführt.

FAQ: Häufige Fragen

1. Wie kann ich Kommentare in Excel dauerhaft sichtbar machen?
Du kannst Kommentare dauerhaft sichtbar machen, indem Du die Kommentare bearbeitest und die Sichtbarkeitseinstellungen änderst.

2. Was tun, wenn die Kommentare beim Überstreichen der Zelle verschwinden?
Verwende den Code, um die Platzierung der Kommentare zu fixieren, sodass sie nicht mehr verschwinden, wenn Du über die Zelle fährst. Achte darauf, die Einstellungen für Placement korrekt zu setzen.

3. Gibt es eine Möglichkeit, die Kommentare in einer bestimmten Zelle zu verschieben?
Ja, Du kannst den Offset-Wert in Deinem VBA-Code anpassen, um die genaue Position zu bestimmen, an die der Kommentar verschoben werden soll.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige