Daten kopieren

Forumthread: Daten kopieren
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Daten kopieren

Daten kopieren

29.07.2003 18:51:48

Thomas

Liebes Forum!
Ich hab eine Datei mit mehreren Sheets (Tabellenname = Kostenstelle) und verschiedene Dateien (Dateinamekostenstelle). Ich würde gerne mittels VBA Code Daten von Datei 1 in Datei 2 hineinkopieren.
Kann mir da jemand helfen?
Liebe Grüße
Thomas

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten kopieren

29.07.2003 20:58:21

HerbertH

AW: Daten kopieren

29.07.2003 20:58:21

HerbertH

Hallo Thomas,
Deine Informationen sind sehr sparsam...
ein Beispiel...



Option Explicit
Sub übertr_TAB()
On Error Resume Next
Dim übertr As Range
Dim übertr1 As Range
Dim übertr2 As Range
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
Workbooks.Open Filename:= _
"c:\Eigene Dateien\Mappe2.xls", _
ReadOnly:=True
Windows("Rohk-2003.xls").Activate
Sheets("Konz-Übers").Activate
ActiveSheet.Unprotect
Set übertr = Workbooks("Mappe2.xls").Sheets("tabelle1").[a1:c27]
Set übertr1 = Workbooks("Mappe2.xls").Sheets("tabelle1").[a28:c54]
Set übertr2 = Workbooks("Mappe2.xls").Sheets("tabelle1").[a55:c81]
With ActiveSheet.[d5:f31].Value = übertr.Value
.[h5:j31].Value = übertr1.Value
.[l5:n31].Value = übertr2.Value
End With
Workbooks("Mappe2.xls").Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub