Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige