Zelleninhalte in verschiedene Dateien kopieren
20.05.2003 08:19:51
Marco
ich versuche seit geraumer Zeit, den Inhalt Zeile (A2 bis I2) von einer Excel Datei in eine andere zu kopieren:
Der Inhalt der Zellen ist ein Zeitformat. (HH:MM)
Die Datei mit den zu kopierenden Zelle wird geöffnet, dann:
Dim as Variant
Set Zwischenablage = New DataObject
Text = Sheets("Master ").Range("A2").Value
With Zwischenablage
.SetText Text
.PutInClipboard
End With
ActiveWorkbook.Close
Set Zwischenablage = Nothing
GoTo Einfügen
Einfügen:
Zwischenablage.GetFromClipboard
Workbooks("C:\Utilization\5_2003\employees\Banfi Simone.xls").Worksheets("Banfi Simone").Range("A2").Value = Zwischenablage.GetText
Set Zwischenablage = Nothing