Kommentar positionieren
13.03.2015 07:19:34
Markus
Hallo
das untenstehende Makro habe ich in diesem Forum gefunden.
Kann man die Position des Kommentar (unten B1) auch so festlegen,
das der Kommentar relativ angezeigt wird.
z.B. 3 Zeilen unterhalb der aktiven Zelle und 3 Spalten rechts neben der aktiven Zelle.
Danke für Antwort.
Markus
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim raZelle As Range
Application.EnableEvents = False
For Each raZelle In ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
raZelle.Comment.Visible = False
Next raZelle
If Not Target.Comment Is Nothing Then
Target.Comment.Shape.DrawingObject.Top = Range("B1").Top
Target.Comment.Shape.DrawingObject.Left = Range("B1").Left
Target.Comment.Visible = True
End If
Application.EnableEvents = True
End Sub