Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

alle Tabellenblätter in anderes File kopieren

alle Tabellenblätter in anderes File kopieren
26.01.2009 16:48:18
Doro
Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand helfen?
Viele Grüße,
Doro
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
FileToOpen = Application.GetOpenFilename(filefilter:="data file (*.xls),*.xls", Title:=Zieltab) If FileToOpen = False Then Exit Sub
Workbooks.OpenText Filename:=FileToOpen
Dim DatenFile As String
DatenFile = ActiveWorkbook.Name
Dim AnzahlRohdatenTabs As Integer
AnzahlRohdatenTabs = Sheets.Count
For i = 1 To AnzahlRohdatenTabs
Sheets(i).Select False
Next i
Selection.Copy Before:=Workbooks(AuswerteFile).Sheets(3)

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

Betreff
Datum
Anwender
Anzeige
AW: alle Tabellenblätter in anderes File kopieren
26.01.2009 16:49:00
Doro
Sorry - hab den Originalthread gefunden!!!

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige