Zellwert als Kommentar per Klick einfügen
11.11.2018 16:11:44
Mischa
ich recherchiere nun seit 2 Wochen nach einen Code der mir ermöglicht einen Wert aus einer Zelle in den Kommentar einer anderen Zelle zu kopieren. Hier erstmal mein Code:
Private Sub ExportTextboxen_Click()
Sheets("KEK").Range("C70").SpecialCells(xlCellTypeComments).ClearComments
Range("c70").Select
Range("c70").AddComment
Range("c70").Comment.Visible = False
Range("c70").AddComment.Text Text:=[d70] & Chr(10)
With Selection.Comment.Shape.TextFrame
.AutoSize = True
End With
End Sub
Dieser funktioniert interessanterweise auf meinem Arbeitsrechner und ich war Heilfroh es herausgefunden zu haben. Nun will ich aber zu Hause weiterschreiben und sieh da: geht nicht mehr. Er Markiert mir immer die Stelle [d70] als Fehlerhaft.
Das Ziel C70 möchte ich später noch durch einen neuen Ort ersetzen, sprich ein anderes Tabellenblatt mit einer anderen Zelle, dies tut ja erstmal nichts zur Sache.
Was mache ich eigentlich:
Ich fordere jemanden mit einer UserForm auf Stellung zu nehmen das per Textbox, funktioniert auch chic und es steht da wo es soll. Wenn er auf Speichern drückt (IN DER USERFORM) soll die Eingabe dann zusätzlich in einer anderen Zelle als Kommentar auftauchen.(oder: überttragen werden; oder Abgespeichert werden) Wie man es nennen mag.
Ich habe auch schon die komplette Makrosicherheit rausgenommen, geht nicht mehr.
Und als Zusatzinfo ich nutze Excel 2019 und auf Arbeit 2017 und bis Vorgestern nutzte ich Student 2010.
Des Weiteren nimmt er diesen Code auch nicht mehr. So wollte ich Sicherstellen das jmd unterschreibt und das Datum der Stellungnahme eingetragen wird.
Der Teil hier nur als Zusatzinfomation, ist aber im Moment nicht mein Main Topic.
Die Kommentar funktion ist deutlich wichtiger. :-)
Private Sub CommandButton2_Click()
Worksheets("KEK").Range("b21") = InputBox("Bitte geben Sie Ihren Namen ein", "Stellungnahme _
erfolgte durch?", , 400, 400)
ThisWorkbook.Sheets("KEK").Range("e21").Value = Date
ActiveWorkbook.Save
Unload KEKeingabe
ActiveWorkbook.Save
End Sub
Vielen Dank
Einen Schönen Sonntag noch
Mischa