Kommentare mit kopieren

Forumthread: Kommentare mit kopieren

26.05.2005 16:49:35

Eva

Hallo,
wie schaffe ich es mit folgendem Code-Auszug Kommentare mitzukopieren?
cbs.Cells(ztdv, 6) = (toolset.Cells(ztmaster, 114))
cbs.Cells(ztdv, 6).Comment.Text = toolset.Cells(ztmaster, 114).Comment
Gruß
Eva

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kommentare mit kopieren

26.05.2005 17:06:57

Nepumuk
wohin mit application...

26.05.2005 17:23:04

Eva
AW: wohin mit application...

26.05.2005 17:29:54

Nepumuk
Danke sehr. oT

26.05.2005 17:31:47

Eva

AW: Kommentare mit kopieren

26.05.2005 17:06:57

Nepumuk

Hallo Eva,
mit der PasteSecial - Methode. Die kannst du dann auch auf den Wert anwenden.

toolset.Cells(ztmaster, 114).Copy
With cbs.Cells(ztdv, 6)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With

Um am Ende des Kopiervorganges den Zwischenspeicher zu löschen und damit den Laufrahmen zu entfernen, setzt du folgende Eigenschaft:
Application.CutCopyMode = False
Gruß
Nepumuk

wohin mit application...

26.05.2005 17:23:04

Eva

Hallo "Nepumuk",
klappt perfekt - wo müsste ich aber application.CutCopyMode = False / True hinsetzen?
ztdv = 4
'Schleifenstart
'vendor A
Application.CutCopyMode = False
For ztmaster = 5 To 148
If Not toolset.Cells(ztmaster, 17) = "" Then
'toolcode
cbs.Cells(ztdv, 1) = toolset.Cells(ztmaster, 17)
'type req. for 1st toolset
cbs.Cells(ztdv, 2) = toolset.Cells(ztmaster, 13)
'area+module
toolset.Range(toolset.Cells(ztmaster, 14), toolset.Cells(ztmaster, 15)).Copy cbs.Cells(ztdv, 3)
'cb
cbs.Cells(ztdv, 5) = toolset.Cells(ztmaster, 175)
'act price A
toolset.Cells(ztmaster, 114).Copy
With cbs.Cells(ztdv, 6)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'a vendor
toolset.Cells(ztmaster, 116).Copy
With cbs.Cells(ztdv, 7)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'act price B
toolset.Cells(ztmaster, 133).Copy
With cbs.Cells(ztdv, 8)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'b vendor
toolset.Cells(ztmaster, 135).Copy
With cbs.Cells(ztdv, 9)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'act price C
toolset.Cells(ztmaster, 152).Copy
With cbs.Cells(ztdv, 10)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'c vendor
toolset.Cells(ztmaster, 154).Copy
With cbs.Cells(ztdv, 11)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'act price D
toolset.Cells(ztmaster, 171).Copy
With cbs.Cells(ztdv, 12)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'd vendor
toolset.Cells(ztmaster, 173).Copy
With cbs.Cells(ztdv, 13)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteComments
End With
'price for maintain tool 70%
cbs.Cells(ztdv, 14) = (toolset.Cells(ztmaster, 28)) * 1000
'tools 1st run
cbs.Cells(ztdv, 15) = toolset.Cells(ztmaster, 193)
'tools 170k
cbs.Cells(ztdv, 16) = toolset.Cells(ztmaster, 195)
ztdv = ztdv + 1
End If
Next ztmaster
Application.CutCopyMode = True
Call dualvendor

AW: wohin mit application...

26.05.2005 17:29:54

Nepumuk

Hallo Eva,
nur einmal, wenn die Schleife verlassen wird. Die hast du auch richtig gesetzt. Die am Anfang bringt nichts, da der Zwischenspeicher bei der ersten Copy - Methode sowieso überschrieben wird.
Gruß
Nepumuk

Danke sehr. oT

26.05.2005 17:31:47

Eva

Beliebteste Forumthreads (12 Monate)

Forumthread: Kommentare mit kopieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread