Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kommentare kopieren

Kommentare kopieren
03.05.2006 13:42:43
Ulf
Hallo Ihr Excelprofis
Ich möchte gerne Kommentare von einer Mappe in eine Andere kopieren ohne select.
Könnt Ihr mir da helfen
so in etwa
Workbooks(WB1).Sheets(Tbb).Range("A6:O2001") = Workbooks(WB2).Sheets(Tbb).Range("A6:O2001").Comment
im Voraus vielen Dank
mfg Ulf

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

Betreff
Datum
Anwender
Anzeige
AW: Kommentare kopieren
03.05.2006 14:02:42
u_
Hallo,
als Ansatz:

Sub tt()
Dim c As Comment
For Each c In Sheets(1).Comments
Sheets(2).Range(c.Parent.Address).AddComment c.Text
Next
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Kommentare kopieren
03.05.2006 14:07:16
Ulf
Hallo
Dein Geist ist wirklich geil
Genau das habe ich gesucht.
Muß es nur noch anpassen.
Danke
mfg Ulf
AW: Kommentare kopieren
03.05.2006 14:21:18
u_
Hallo,
haarig wird es bei den Formatierungen. sollte abe auch mmachbar sein.
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Kommentare kopieren
03.05.2006 16:10:15
Ulf
Hallo
Habe es so gelöst und funktioniert
For Each c In Workbooks(WB2).Sheets(Tbb).Comments
Workbooks(WB1).Sheets(Tbb).Range(c.Parent.Address).AddComment c.text
Workbooks(WB1).Sheets(Tbb).Range(c.Parent.Address).Interior.ColorIndex = 44
Next
mfg Ulf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige