Microsoft Excel

Herbers Excel/VBA-Archiv

Zellinhalt in Kommentarfeld schreiben | Herbers Excel-Forum


Betrifft: Zellinhalt in Kommentarfeld schreiben von: Thomas Seidenstücker
Geschrieben am: 30.01.2012 14:02:15

Hallo Forum.

ich möchte die Zelleninhalte einen Spalte U (3:600) in noch nicht vorhandene Kommentarfenster schreiben lassen. Zum Beispiel soll ein Wert 3.000€ in das Kommentarfenster übernommen werden.

Ist das möglich?

Vielen Dank.

Thomas

  

Betrifft: AW: Zellinhalt in Kommentarfeld schreiben von: Beverly
Geschrieben am: 30.01.2012 15:54:00

Hi Thomas,

Sub Kommentare()
   Dim rngZelle As Range
   For Each rngZelle In Range("U3:U600")
      If rngZelle <> "" Then rngZelle.AddComment rngZelle.Value
   Next rngZelle
End Sub


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Zellinhalt in Kommentarfeld schreiben von: Thomas Seidenstücker
Geschrieben am: 30.01.2012 16:11:58

Hallo Karin,

vielen Dank. Jedoch wird ein Fehler angezeigt "Debug" in Zeile

Sub Kommentare()
   Dim rngZelle As Range
   For Each rngZelle In Range("U3:U600")
   --> Debugging   If rngZelle <> "" Then rngZelle.AddComment rngZelle.Value   Next rngZelle
End Sub



  

Betrifft: AW: Zellinhalt in Kommentarfeld schreiben von: Thomas Seidenstücker
Geschrieben am: 30.01.2012 16:44:59

Hallo Karin,
vielen Dank. Leider ist ein Laufzeitfehler 1004 in der 4. Zeile aufgetreten

Sub Kommentare()
   Dim rngZelle As Range
   For Each rngZelle In Range("U3:U600")
      If rngZelle <> "" Then rngZelle.AddComment rngZelle.Value
   Next rngZelle
End Sub



  

Betrifft: "rngZelle.Text" statt "rngZelle.Value" o.T. von: Christian
Geschrieben am: 30.01.2012 16:50:57

Gruß
Christian


  

Betrifft: evtl war auch schon ein Kommentar vorhanden ... von: Matthias L
Geschrieben am: 30.01.2012 23:05:53

Hallo

... auch das würde den Laufzeitfehler 1004 verursachen

Deshalb würde ich eher schreiben:

Sub Kommentare()
    Dim rngZelle As Range
    For Each rngZelle In Range("U3:U600")
        If rngZelle <> "" Then
           rngZelle.ClearComments
           rngZelle.AddComment rngZelle.Text
        End If
    Next rngZelle
 End Sub
Gruß Matthias


Beiträge aus den Excel-Beispielen zum Thema "Zellinhalt in Kommentarfeld schreiben"