Daten kopieren
06.11.2007 08:09:00
Peter
Mit untenstehendem Code versuche ich einen grösseren Bereich zu kopieren und an der gewünschten Stelle ([ _
iDatenTarget] ist eine benannte Zeile im Zielbereich oben links) einzufügen (nur Werte).
Wenn ich den Code Schritt für Schritt ausführe, sehe ich bei der 3 Zeile (PasteSpecial) wie die _
kopierten Daten kurz erscheinen und gleich wieder verschwinden.
Was mache ich falsch?
Danke für eine Rückmeldung.
Gruss, Peter
Sub CopyData()
[DetModImport] = "" ' 1 alte Daten in Zieltabelle werden gelöscht
[iDaten].Copy ' 2 neue Daten werden kopiert
[iDatenTarget].PasteSpecial Paste:=xlPasteValues ' 3 Daten werden eingefügt
Application.CutCopyMode = False '4 zu kopierender Bereich wird deaktiviert
End Sub