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

Mehrere Datein öffnen und 1.Sheet kopieren

Mehrere Datein öffnen und 1.Sheet kopieren
03.05.2007 11:00:00
sabbel
Hallo zusammen,
stehe vor folgendem Problem. Ich möchte per VBA aus mehreren Dateien das 1.Sheet kopieren und in meine Zieldatei kopieren. Den Code für das öffnen habe ich schon. Da ich das über ein Array mache, habe ich dann aber das Problem, dass ich das Sheet aus meinen Quelldateien nicht kopieren kann (quelldateien(l).Worksheets(1).Copy after:=zieldatei.Worksheets(2))
Hier erst mal mein bisheriger Code:

Sub öffnen()
Dim l As Long
Dim quelldateien As Variant
Dim zieldatei As Workbook
Dim wrks As Worksheets
Set zieldatei = ActiveWorkbook
l = 0
quelldateien = Application.GetOpenFilename("Excel-Dateien (*.xls),*.xls", MultiSelect:=True)
If IsArray(quelldateien) Then
For l = LBound(quelldateien) To UBound(quelldateien)
Workbooks.Open quelldateien(l)
quelldateien(l).Worksheets(1).Copy after:=zieldatei.Worksheets(2)
quelldateien(l).Close
Next l
Else
MsgBox "Sie haben keine Arbeitsmappe ausgewählt!", vbInformation
End If
End Sub


Weiß jemand Rat?
grüße
Sabbel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Datein öffnen und 1.Sheet kopieren
03.05.2007 12:34:11
Matthias
Hallo Sabbel,
statt

Workbooks.Open quelldateien(l)
quelldateien(l).Worksheets(1).Copy after:=zieldatei.Worksheets(2)
quelldateien(l).Close


kannst du schreiben:


Workbooks.Open quelldateien(l)
ActiveWorkbook.Worksheets(1).Copy after:=zieldatei.Worksheets(2)
ActiveWorkbook.Close


Denn das zuletzt geöffnete Workbook ist erstmal das Aktive.
Gruß Matthias

AW: Mehrere Datein öffnen und 1.Sheet kopieren
03.05.2007 13:43:00
sabbel
Danke.
Funktioniert.
:-)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige