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)