Tabelle ziehen
22.03.2009 22:22:14
Tom
ich habe folgenden Code eingesetzt um mir nur ein Tabellenblatt aus meiner Mappe abspeichern zu lassen.
Leider speichert er mir die ganze Mappe, hat jemand eine Idee wie ich das ändern kann?
LG Tom
Sub speichern_Rg_Anlagen()
On Error GoTo errorhandler
Dim Pfad As String
Pfad = "C:\Dokumente und Einstellungen\Tom.TOM-NBQFB4PGLP2\Eigene Dateien\Arbeit\Abrechnung\ _
Test\"
If Sheets("1").Range("G3") = "" Then
MsgBox "Bitte einen Dateinamen in C1 eintragen"
Exit Sub
End If
If Dir(Pfad & Sheets("1").Range("G3") & ".xls") = "" Then
ThisWorkbook.Sheets("Rg.Anlagen").SaveCopyAs (Pfad & Sheets("1").Range("G3") & ".xls")
Exit Sub
End If
If MsgBox("Die Datei ist schon vorhanden. Soll sie ersetzt werden?", vbYesNo) = vbNo Then Exit _
_
_
_
_
_
Sub
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Rg.Anlagen").SaveCopyAs (Sheets("1").Range("G3") & ".xls")
Application.DisplayAlerts = True
errorhandler:
Application.DisplayAlerts = True
End Sub
Anzeige