hätte eine Frage, die hoffentlich nicht alzu komplex zu lösen ist?
wie man ein komentarfeld erstellt ist mir klar, aber geht es auch aus
einem bestimmten zelle oder mehrere daten da reinzulesen?
besten dank im voraus!
ciao
stev
Sub Text2Comment()
' Zellwerte als Kommentar
Dim c As Range
Set c = Selection
If c Is Nothing Then Exit Sub
' für alle zellen im selektierten Bereich
For Each c In Selection
' Fehler überspringen, der auftritt, falls schon ein Kommentar vorhanden ist
On Error Resume Next
' Kommentar erstellen
c.AddComment
' Zellwert zum Kommentartext hinzufügen
c.Comment.Text Text:=c.Comment.Text & Chr(10) & c
' Kommentar ausblenden
c.Comment.Visible = False
Next
End Sub
Sub Kommentar()
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Range("a1") & Chr(10) & Range("a3") & "mein Text"
End With
End Sub