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

Forumthread: Kommentar fixieren

Kommentar fixieren
22.10.2007 12:15:12
Ben
Hallo VBA-Experten
Ich habe im Archiv zwar einige Beiträge zum Thema Kommentar fixieren gefunden, aber keiner, der mir weiter hilft.
Ich habe folgenden Code, um Kommentare einzufügen und anzuzeigen:

Private Sub Kommentar_einfügen_Click()
If (MsgBox("Wollen Sie einen Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, _
columnabsolute:=False) & " einfügen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
Dim myCom As Comment
Dim myText As String
On Error Resume Next
myText = InputBox("Bitte Kommentar eingeben")
ActiveCell.Comment.Delete
Set myCom = ActiveCell.AddComment
With myCom
.Visible = True
.Text Text:=myText
.Shape.LockAspectRatio = msoFalse
.Shape.TextFrame.AutoSize = True
End With
With myCom.Shape
.Left = ActiveCell.Left + 1
.Top = ActiveCell.Top - 1
'.Width = 50
'.Height = 20
End With
End If
End Sub


Es wird damit immer oben links in der aktiven Zelle ein Kommentar eingefügt. Das funktioniert eigentlich ganz gut. Alledings blenden die User in meiner Datei je nach dem was sie interessiert Spalten ein und aus. Das führt dazu, dass die Kommentare verschoben werden und nicht mehr in der Zelle stehen, zu der sie gehören, sondern z.B. 4 Zeilen unterhalb angezeigt werden.
Gibt es eine Möglichkeit, dass man die Kommentare fixiert?
Vielen Dank für Eure Hilfe.
Gruss
Ben

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar fixieren
22.10.2007 16:16:00
Heinz
Hi,
"...Gibt es eine Möglichkeit, dass man die Kommentare fixiert?..."
Nein!
mfg Heinz

AW: Kommentar fixieren
22.10.2007 17:07:00
Ben
Schade. Sind alle anderen Experten mit dieser Antwort von Heinz einverstanden?
Gruss
Ben

AW: Kommentar fixieren
22.10.2007 23:14:00
Fred
Hi,
solang die Kommentare permanent angezeigt werden, kann man sie nach Herzenslust
platzieren und fixieren. Werden sie durch Mousemove über die Zelle angezeigt,
erscheinen sie, wie sie wollen.
mfg Fred

Anzeige
AW: Kommentar fixieren
23.10.2007 08:40:53
Ben
Hallo Fred

solang die Kommentare permanent angezeigt werden, kann man sie nach Herzenslust
platzieren und fixieren.


Die Kommentare werden in meiner Datei permanent angezeigt und beim Erstellen werden sie oben links in der Zelle fixiert. Wenn ich die Ansicht wechsle, d.h. z.B. Zeilen und Spalten einblende, bleiben sie stehen, statt sich mit der Zelle zu verschieben.
War das verständlich ausgedrückt? Wenn nein kann ich die Datei uploaden.
Gruss
Ben

Anzeige
AW: Kommentar fixieren
23.10.2007 14:53:48
Fred
Hi,
mach mal.
mfg Fred

AW: Kommentar fixieren
23.10.2007 15:37:00
Ben
Hallo
Hier die Datei.
https://www.herber.de/bbs/user/47025.xls
Wenn Du mit den Schaltflächen "spielst" siehst Du was ich meine mit dem Verschieben der Kommentare.
Danke schon mal und
Gruss
Ben

Anzeige
AW: Kommentar fixieren
23.10.2007 16:32:00
Harry
Hallo Ben,
meinst du:
rechter Mausklick auf Kommentar - "Kommentar formatieren..." - "Register Eigenschaften" - "Von Zellposition und - größe abhängig" ?
- und nicht wie bisher "unabhängig"?
für dein Kommentar in D11

Range("D11").Select
Range("D11").Comment.Shape.Select True
Range("D11").Comment.Text Text:="Kommentar Aebi"
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With


Gruß
Harry

Anzeige
AW: Kommentar fixieren
24.10.2007 11:15:00
Ben
Hallo Harry
Danke für den Hinweis. Wenn ich die Kommentare manuell auf "von Zellposition abhängig" setze, bleiben sie in der Zelle und am richtigen Ort.
Aber, wie kriege ich das mit VBA hin, so dass man das nicht immer manuell machen muss? Meine VBA-Kenntnisse reichen dazu offensichtlich nicht aus, auf jeden Fall waren alle meine Versuche erfolglos.
Weiss hier jemand Rat?
Gruss
Ben

Anzeige
AW: Kommentar fixieren
24.10.2007 13:11:26
Harry
Hallo Ben,
einfach in dein Makro zum Erstellen der Kommentare .Placement = xlMoveAndSize wie folgt einfügen

Private Sub Kommentar_einfügen_Click()
'deine Befehle
'blablabla
With myCom.Shape
.Left = ActiveCell.Left + 1
.Top = ActiveCell.Top - 1
.Placement = xlMoveAndSize
'.Width = 50
'.Height = 20
End With
End If
End Sub


Damit gilt das für die neuen Kommentare, für bisherige entweder manuell ändern oder diese neu erstellen.
Gruß
Harry
PS: Du erleichterst dir das Lesen deiner Quelltexte, wenn du die Befehle etwas einrückst, z.B. so


'Kommentar einfügen
Private Sub Kommentar_einfügen_Click()
Dim myCom As Comment
Dim myText As String
If (MsgBox("Wollen Sie einen Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, _
columnabsolute:=False) & " einfügen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
On Error Resume Next
myText = InputBox("Bitte Kommentar eingeben")
ActiveCell.Comment.Delete
Set myCom = ActiveCell.AddComment
With myCom
.Visible = True
.Text Text:=myText
.Shape.LockAspectRatio = msoFalse
.Shape.TextFrame.AutoSize = True
End With
With myCom.Shape
.Left = ActiveCell.Left + 1
.Top = ActiveCell.Top - 1
.Placement = xlMoveAndSize
'.Width = 50
'.Height = 20
End With
End If
End Sub


Anzeige
AW: Kommentar fixieren
25.10.2007 08:44:00
Ben
Hallo Harry
Jetzt ist es perfekt, die Kommentare bleiben in der jeweiligen Zelle. Herzlichen Dank für Deine Hilfe.
Gruss
Ben
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Kommentare in Excel fixieren: So bleibt alles an Ort und Stelle


Schritt-für-Schritt-Anleitung

Um die Position von Kommentaren in Excel zu fixieren, kannst du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass die Kommentare an die Zellposition gebunden sind, sodass sie beim Verschieben von Zellen nicht verschwinden.

  1. Öffne dein Excel-Dokument.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul ein (Einfügen > Modul).
  4. Kopiere und füge den folgenden Code in das Modul ein:
Private Sub Kommentar_einfügen_Click()
    Dim myCom As Comment
    Dim myText As String
    If (MsgBox("Wollen Sie einen Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, columnabsolute:=False) & " einfügen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
        On Error Resume Next
        myText = InputBox("Bitte Kommentar eingeben")
        ActiveCell.Comment.Delete
        Set myCom = ActiveCell.AddComment
        With myCom
            .Visible = True
            .Text Text:=myText
            .Shape.LockAspectRatio = msoFalse
            .Shape.TextFrame.AutoSize = True
        End With
        With myCom.Shape
            .Left = ActiveCell.Left + 1
            .Top = ActiveCell.Top - 1
            .Placement = xlMoveAndSize
        End With
    End If
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Füge nun Kommentare hinzu, die an die Zellposition gebunden sind.

Häufige Fehler und Lösungen

  • Kommentare werden nicht angezeigt: Stelle sicher, dass die Kommentare im Excel-Dokument aktiviert sind. Gehe zu Überprüfen > Kommentare und wähle Kommentare anzeigen.

  • Kommentare verschieben sich beim Ein- oder Ausblenden von Spalten: Überprüfe, ob die .Placement = xlMoveAndSize im VBA-Code gesetzt ist. Das sorgt dafür, dass die Kommentare an die Zellposition gebunden sind.


Alternative Methoden

Eine alternative Methode besteht darin, die Kommentare manuell zu formatieren:

  1. Klicke mit der rechten Maustaste auf den Kommentar.
  2. Wähle „Kommentar formatieren…“.
  3. Gehe zu „Register Eigenschaften“ und stelle sicher, dass „Von Zellposition und -größe abhängig“ ausgewählt ist.

Diese Methode ist jedoch weniger effizient, wenn du viele Kommentare hast, da sie manuell für jeden Kommentar durchgeführt werden muss.


Praktische Beispiele

  • Beispiel 1: Du hast eine Excel-Datei mit Verkaufszahlen und möchtest für jede Zelle einen Kommentar mit zusätzlichen Informationen hinzufügen. Verwende den oben genannten VBA-Code, um sicherzustellen, dass die Kommentare nicht verrutschen.

  • Beispiel 2: Wenn du ein Arbeitsblatt mit vielen Notizen hast und sicherstellen möchtest, dass diese immer an der richtigen Stelle bleiben, kannst du die xlMoveAndSize Platzierungsoption nutzen, um die Excel Notiz Position zu fixieren.


Tipps für Profis

  • Nutze die Tastenkombination ALT + R gefolgt von C und dann M, um schnell einen neuen Kommentar hinzuzufügen.
  • Wenn du regelmäßig mit Kommentaren arbeitest, kannst du den VBA-Code anpassen, um mehrere Kommentare auf einmal zu erstellen oder bestehende Kommentare zu aktualisieren.
  • Achte darauf, die Kommentare regelmäßig zu überprüfen, vor allem, wenn das Arbeitsblatt bearbeitet wird.

FAQ: Häufige Fragen

1. Wie kann ich die Kommentare in Excel dauerhaft anzeigen lassen? Um Kommentare dauerhaft anzuzeigen, gehe zu Überprüfen > Kommentare und wähle Kommentare anzeigen.

2. Was kann ich tun, wenn die Kommentare beim Verschieben der Zellen nicht an der richtigen Stelle bleiben? Stelle sicher, dass du im VBA-Code die Zeile .Placement = xlMoveAndSize hinzugefügt hast.

3. Gibt es eine Möglichkeit, die Größe der Kommentare automatisch anzupassen? Ja, du kannst die Zeile .Shape.TextFrame.AutoSize = True im VBA-Code verwenden, damit die Größe des Kommentars automatisch angepasst wird.

4. Können Kommentare auch in einer bestimmten Excel-Version nicht fixiert werden? Die beschriebenen Methoden funktionieren in den meisten neueren Versionen von Excel, insbesondere ab Excel 2010.

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