habe folgenden Code aus der Recherche:
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
PROBLEM: Relativ kurze Bezeichnungen durch "Enter" getrennt
R 420 EC
CD 200
R 360 Euro
Hierdurch wird immer nur die erste Zeile als Kommentar übertragen und der Rest in die darunterliegenden Zeilen
als normaler Text eingetragen (durch die Zeilenschaltung).
1) Wie kann man abhelfen ?
2) Gibt es im Archiv ein Gegenstück ?
--> also Kommentar in Zwischenablage auslesen
(unter den 4 Kommentarbereichen nichts gefunden)
Ziel ist es einen bestehenden Kommentar "einfach" in eine
weitere Zelle wieder als Kommentar zu kopieren !
(Bitte keine Fragen nach dem Sinn - nicht meine Idee)
Ideal wäre natürlich über Makro den Kommentar auszulesen,
dann die Bitte nach neuer Zelle und auf Klick dann einfügen
des Kommentars - Was kostet sowas ? ;-)
Liebe Grüße
Wolfgang Jung