Ich will über CommandButton38 in Tabelle2 die Tabelle5 als seperate Datei speichern. Hermann hat mir einen Code gegeben, mit dem ich nur die aktuelle Tabelle speichern kann, nicht aber eine x-beliebige. Wie muß ich den Code ändern, damit es so klappt wie ich mir vorstelle?
Bin VBA-Anfänger und damit ein wenig überfordert!
Private Sub CommandButton38_Click()
'Speichern eines Blattes, 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!", , "C:\Dokumente und Einstellungen\chris\Eigene Dateien\")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is <> "\"
pfad = pfad & "\"
End Select
ActiveSheet.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name
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