in meinem Programm soll über Commandbutton 37 Worksheets(4) in einer externen Arbeitsmappe kopiert & gespeichert werden.
Habe den Code ím Forum bekommen, allerdings kopiert das Programm Worksheets(4) nur in eine Andere Arbeitsmappe ohne die entsprechende Tabelle zu speichern.
Wie muß ich den Code ändern, damit Worksheet (4) nicht nur kopiert wird, sondern wirklich direckt in dem eingegebenen Pfad der eingegeben wurde gespeichert wird?
Private Sub CommandButton37_Click()
'Speichern Von Worksheets(4),in ener einer Arbeitsmappe, als Datei.xls
'wobei der Tabellenblattname der Dateiname.xls wird.
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "y:")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is <> "\"
pfad = pfad & "\"
End Select
Worksheets(4).Copy '!!!
'ActiveSheet.Copy (alt)
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & Worksheets(zahl).Name
'ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name (alt)
ActiveWorkbook.Close SaveChanges:=False
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
Application.ScreenUpdating = True
End Sub
Danke für Hilfe
Christoph