sheets in workbook kopieren
18.01.2005 13:59:26
roland
hat mir da jemand eine elegantere Lösung, damit sich nicht für jedes Sheet das workbook öffnet?
P.S. WB = Worbook
Danke im Voraus und gruss
Set WB = Workbooks.Open(dName, True)
With ThisWorkbook
' Arbeitsblätter "General""G1 Sensors""G1 Aleth" jeweils am Schluss einfügen (copy)
Sheets("General").Copy after:=.Worksheets(.Worksheets.Count)
End With
Set WB = Workbooks.Open(dName, True)
With ThisWorkbook
Sheets("G1 Sensors").Copy after:=.Worksheets(.Worksheets.Count)
End With
Set WB = Workbooks.Open(dName, True)
With ThisWorkbook
' Name der Rohdaten-Datei auslesen
intNr = ActiveWorkbook.Name
Worksheets("G1 ALeth").Copy after:=.Worksheets(.Worksheets.Count)
End With
' Rohdaten-Datei schliessen ohne speichern von Änderungen
WB.Close savechanges:=False