Kommentare

Forumthread: Kommentare
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Kommentare

Kommentare

24.05.2005 02:02:30

Selma

Hallo Excelfreunde,
ich möchte die Zelleninhalte für markierten Zellenbereich durch die jeweilige Kommentare der einzelnen Zellen ersetzen. Wie mache ich dies?
Vielen Dank im Voraus...
Liebe Grüße
S E L M A

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kommentare

24.05.2005 02:15:49

Bert
funktioniert nicht.....

24.05.2005 02:23:27

Selma
AW: funktioniert nicht.....

24.05.2005 02:34:31

Bert
AW: funktioniert nicht...oder doch?

24.05.2005 02:35:19

PeterW

AW: Kommentare

24.05.2005 02:15:49

Bert

Hi,
Option Explicit
Sub stantiv()
Dim c As Range
On Error GoTo errh
For Each c In Cells.SpecialCells(xlCellTypeComments)
c = c.Comment.Text
Next
Exit Sub
errh:
MsgBox "Keine Kommentare vorhanden!"
End Sub
Gruß Bert

funktioniert nicht.....

24.05.2005 02:23:27

Selma

Hi Bert,
dein Code läuft alle Zellen durch die ein Kommentar haben.
Ich brauche es nur für die markierten Zellenbereich.
Hast Du evtl. eine andere Lösung...?
Gruß und Danke
S E L M A

AW: funktioniert nicht.....

24.05.2005 02:34:31

Bert

Hi,
Option Explicit
Sub stantiv()
Dim c As Range
On Error GoTo errh
For Each c In Selection.SpecialCells(xlCellTypeComments)
c = c.Comment.Text
Next
Exit Sub
errh:
MsgBox "Keine Kommentare vorhanden!"
End Sub
Gruß Bert

AW: funktioniert nicht...oder doch?

24.05.2005 02:35:19

PeterW

Hallo Selma,
ersetze Cells durch Selection und alles wird gut. :-)


Sub stantiv()
Dim c As Range
On Error GoTo errh
For Each c In Selection.SpecialCells(xlCellTypeComments)
c = c.Comment.Text
Next
Exit Sub
errh:
MsgBox "Keine Kommentare vorhanden!"
End Sub

Gruß
Peter