Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare

Forumthread: Kommentare

Kommentare
24.05.2005 00: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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare
24.05.2005 00: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 00: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
Anzeige
AW: funktioniert nicht.....
24.05.2005 00: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 00: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige