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

Kommentare mit kopieren

Forumthread: Kommentare mit kopieren

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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)

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