Code für Kommentar auslesen umschreiben
Lorenz
Folgende Aufgabe!
Ich möchte aus Tabelle1 in der Spalte A6:A100 bei Eingabe eines x-beliebigen Wert
aus dem Blatt Test aus der Spalte H:H den Wert aus dem "benannten Bereich" (Name = Stunden)
die Zahl im Kommentar eingefügt haben. Also bei Eingabe in Tabelle1 in Zeile 27 soll der Wert aus Test Zeile 27 (aus "Stunden") ausgegeben werden.
Mein Pfusch (Code) funktioniert leider nicht.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cmt As Comment
Dim rng As Range
Set rng = Worksheets("Test").Names = "Stunden"
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Not Target.Comment Is Nothing Then
Target.Comment.Delete
End If
Set cmt = Target.AddComment(Text:="Zellinhalt: " & rng.Value)
cmt.Shape.TextFrame.AutoSize = True
End Sub
Danke im Voraus!
Gruss Lorenz