Supportnet Computer
Planet of Tech

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:
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.
mit
Zitat:
Range("A1")
wird die Zelle "A1" mit dem Dateinamen angenommen (ev. ändern!).

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 -