Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten kopieren

Daten kopieren
29.07.2003 16: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
Anzeige
AW: Daten kopieren
29.07.2003 18: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


Gruß Herbert

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige