Kommentar fixieren
22.10.2007 12:15:12
Ben
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