wie kann ich Text aus der Zwischenablage als Kommentar einfügen?
Ich habe hierzu etwas im Archiv gefunden, funktioniert aber nicht ganz. Es wird nur der Wert der ersten Zelle als Kommentar engefügt und nicht der komplett markierte Bereich!
Wo liegt der Fehler?
Hier der Code den ich dazu gefunden habe:
Sub Zwischenablage_als_Zellkommentar_einfügen()
Dim strWertAlt As String
Dim strWertNeu As String
strWertAlt = ActiveCell.Value 'Alter Zellinhalt.
ActiveCell.PasteSpecial 'Einfügen aus Zwischenablage.
strWertNeu = ActiveCell.Value 'Wert in Variable übertragen.
ActiveCell.Value = strWertAlt 'Alten Zellinhalt wieder herstellen.
If strWertNeu = "" Then Exit Sub
On Error GoTo SchonVorhanden 'Bei Fehlermeldung beim Einfügen:
With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Text Text:=strWertNeu
End With
GoTo Ende
SchonVorhanden:
MsgBox "Schon ein Kommentar vorhanden!", vbCritical, "Abbruch"
Ende:
On Error GoTo 0
End Sub
Danke schon mal im vorraus!
Gruß
Antje