Supportnet / Forum / Tabellenkalkulation
Einzelnes Excel Tabellenblatt mit hilfe eines Buttons speichern!.
Frage
Hallo zusammen,
habe das problem das ichein einzelnes Excel Tabellenblatt einer Arbeitsmappe unter dem Namen einer Zelle abspeichern möchte.
Bin absoluter Neuling unter VBA
Antwort 1 von piano
Hallo
Hier ein Makro für deinen Button:
Unter
mit
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -
Hier ein Makro für deinen Button:
Sub TabellenblattSpeichern()
Dim WNeueDatei As String, Pfad As String, WName1 As String, Wname2 As String
Pfad = "C:\Dokumente und Einstellungen\User\Eigene Dateien\"
WNeueDatei = Range("A1")
WName1 = ActiveWorkbook.Name
Workbooks.Add
Wname2 = ActiveWorkbook.Name
Windows(WName1).Activate
Cells.Select
Selection.Copy
Windows(Wname2).Activate
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Gunther\Eigene Dateien\" & WNeueDatei & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
End Sub
Unter
Zitat:
Pfad
mußt du den Pfad zur Speicherung angeben.Pfad
mit
Zitat:
Range("A1")
wird die Zelle "A1" mit dem Dateinamen angenommen (ev. ändern!).Range("A1")
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -