---

Hallo Excel Freaks,

ich sitze auf der Leitung.
Folgendes: Ich möchte den Text der in einem Kommentar steht in die Zelle daneben kopieren.

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Gazelle,

normalerweise:
gehe auf die Zelle > Menue > Einfügen > Kommentar bearbeiten
naja & copypaste 

oder wolltest Du dies mit Makro tun?

HTH
Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy

Sorry in einem Makro natürlich.
Wenn ich es mir aufzeichne bezieht es sich ja immer auf die ausgewählte Zelle

Range("L87").Select
    Range("L87").Comment.Text Text:= _
        "Die absolute....Spielrauraum." _
        , Start:=200
    Range("M87").Select
    ActiveSheet.Paste

Ich möchte das Makro ausführen, wenn nötig also nur bei ausgewählter Zelle.
Was bedeutet Start:=200??

nochmals besten Dank im voraus

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nochmal Hallo,

dies sollte gehen, vorher die betreffenden Zellen markieren

Gruss Nancy
--

Sub CopyComments()
  Dim cell As Range
 
  For Each cell In Selection
      If Not cell.Comment Is Nothing Then
        cell.Offset(0, 1).Value = cell.Comment.Text
      End If
  Next
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

D A N K E D A N K E

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP