kopie von tabellenblätter will net! dringend Hilfe
05.09.2007 10:42:03
tabellenblätter
möchste aus einer Exceldatei die Mappe asic-Ausgabe in eine Exceldatei aaaaaa.xls kopieren.
Dazu hab ich in dem Workbook, in dem auch die ASIC-Ausgabe ist folgende Sub Routine geschrieben:
Sub Tabellenblatt_in_Arbeitsmappe(strName As String, strFilename As String)
Dim wkbworkbook As Workbook
Dim wksworksheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set wksworksheet = Sheets(strName)
Set wkbworkbook = Workbooks.Open(strFilename)
wksworksheet.Copy _
After = wkbworkbook.Sheets(wkbworkbook.Worksheets.Count)
wkb.Close savechanges:=True
wkbworkbook.Save
wkbworkbook.Close
Application.ScreenUpdating = True
End Sub
durch einen Button "Updatebutton" rufe ich diese Funktion auf und übergebe ihr 2 Parameter
der erste ist das zu kopierende Arbeitsblatt, als zweites die Zieldatei.
Private Sub updatebutton_Click()
Call Tabellenblatt_in_Arbeitsmappe("ASIC-Ausgabe", "aaaaaa.xls")
MsgBox "Kopieren von ASIC-Ausgabe beendet!"
End Sub
Nun kopiert das drecksding aber nicht wie es soll. An was könnte dies liegen, ich bin total ratlos und benötige von euch dringend hilfe.
Ich hoffe ihr wiest was da schieff läuft.
Danke im vorraus für die Hilfe.
Gruß Marcel