shaggy84
23.03.2007, aktualisiert um 17:59:08 Uhr
view3279
view1
0
Goto Top

Bestimmte Tabellen einer Datei neu abspeichern

gelöstFrageMicrosoftMicrosoft Office
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
ShareTeilen
Auf Facebook teilen Auf Twitter teilen Auf Reddit teilen Auf Linkedin teilen

Content-ID: 54874

Url: https://administrator.de/forum/bestimmte-tabellen-einer-datei-neu-abspeichern-54874.html

Ausgedruckt am: 21.02.2025 um 21:02 Uhr

1 Kommentar
Goto Top
bastla
bastla 23.03.2007 um 17:59:08 Uhr
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
gelöstFrageMicrosoftMicrosoft Office
Mehr von Shaggy84Shaggy84Durchschnitt aus mehreren Werten der gleichen Zeile berechnenShaggy84 - 3 KommentareShaggy84Inhalte von Datei zu Datei kopieren mit Schleifen MakroShaggy84 - 4 KommentareShaggy84per VBA Makro mehrere Excel Dateien auf einmal öffnen - importieren - konsolidierenShaggy84 - 1 KommentarShaggy84Beim Datei öffnen Makro ein anderes in der Datei vorhandenes Makro deaktivierenShaggy84 - 1 Kommentar
Heiß diskutiert
MysticFoxDEWINDOWS 11 24H2 - Offizieller Support nur noch ab Intel Gen 11 CPUsMysticFoxDE - 46 KommentareMasterOfInternet6860 5G und 7590 (ohne AX) verbinden für Außenzugriff auf Datenträger an 7590MasterOfInternet - 38 KommentareLochkartenstanzerWindows 10: ipv4 kaputt, v6 gehtLochkartenstanzer - 31 KommentareniederrheinerOpenVPN Mikrotik Routing auf lokale Endgeräteniederrheiner - 28 KommentareTP-JetstreamVLAN Weiterleitung Routing ins InternetTP-Jetstream - 26 Kommentareukulele-7Langlebiger USB-Stick gesuchtukulele-7 - 26 KommentareRoterFruchtZwergVEthernet Adapter entfernenRoterFruchtZwerg - 22 KommentareN3cronomiconWin 11 24H2 - Vertrauensstellung zur Domäne verlorenN3cronomicon - 18 KommentaremichifsFirewall Migration - Hilfe zum Thema Routingmichifs - 18 KommentareFluxkondensatorNeue WLAN Lösung für KMUFluxkondensator - 18 KommentareCoreknabeWo bezieht Ihr Eure LWL-Kabel?Coreknabe - 16 KommentarecoltseaversMicrosoft-Kontoregistrierung schlägt fehlcoltseavers - 15 Kommentarecirrus7VLAN DHCP Problemcirrus7 - 13 Kommentare