Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen ()
dim icolmax as integer
dim irowmax as integer
dim icol as integer
dim irow as integer
dim kommentar$
icolmax = 16
irowmax = thisworkbook.worksheets("IASEKDGT").usedrange.specialcells(xlcelltypelastcell).row
for irow = 2 to irowmax
for icol = 1 to icolmax
if sheets("IASEKDGT").cells(irow, icol) sheets("IASEKBGT").cells(irow, icol) then
sheets ("IASEKDGT").cells(irow, icol).interior.colorindex = 3
kommentar = sheets("IASEKBGT").cells(irow, icol).text
sheets("IASEKDGT").cells(irow, icol).addcomment kommentar
end if
next icol
next irow
End Sub
Beim Debuggen sehe ich dass die richtigen Werte in kommentar kopiert werden.
In der Zeile:
sheets("IASEKDGT").cells(irow, icol).addcomment kommtar
tritt dann jedoch der LZF 1004 Anwendungs- oder objektdefinierter Fehler auf
Was muss ich ändern, damit der Wert als Kommentar hinzugefügt wird.
Vielen Dank.
Grüße
Elise