shaggy84
Mar 23, 2007, updated at 16:59:08 (UTC)
view3181
view1
0
Goto Top

Bestimmte Tabellen einer Datei neu abspeichern

GermansolvedQuestionMicrosoft OfficeMicrosoft
Moin,

gibt es einem VBA Code, der folgendes ausführen kann?

Möchte die zweite bis fünfte Tabelle meiner Excel Datei in einer neuen Datei Speichern.

Dies soll dann über ein Dialogfenster funktionieren, wie dass normale "Speichern unter" auch. So dass der User selber den Namen und den Speicherort angeben kann.

Gruß, Shaggy
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 54874

Url: https://administrator.de/contentid/54874

Printed on: April 23, 2024 at 21:04 o'clock

1 Comment
Goto Top
Member: bastla
bastla Mar 23, 2007 at 16:59:08 (UTC)
Goto Top
Hallo Shaggy84!

... gibt es einem VBA Code ...
... seit kurzem face-wink

Sub Save2To5As()
    Dim fName
    Sheets(Array(Worksheets(2).Name, Worksheets(3).Name, Worksheets(4).Name, Worksheets(5).Name)).Copy
    fName = Application.GetSaveAsFilename(, "Excel-Arbeitsmappe (*.xls),*.xls")  
    If fName <> False Then
        ActiveWorkbook.SaveAs Filename:=fName
    Else
        MsgBox "Neue Mappe nicht gespeichert!"  
    End If
End Sub

Grüße
bastla
GermansolvedQuestionMicrosoft OfficeMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments