Office: Einzelne Tabelle "Speichern unter"

Hallo liebe Community,

ich entschuldige mich schon im Voraus für diesen Thread, falls bereits ein ähnlicher besteht.

Es gibt bereits einige Lösungen zu meinem Problem, allerdings nicht die komplette bzw. die mir nicht ganz helfen.

Folgendes würde ich gerne realisieren:

Mit einem Click auf CommandButton1 soll eine Tabelle (Sheet) abgespeichert werden. Dazu soll ein Application-Fenster ("Speichern Unter") geöffnet werden, indem der User den Pfad und den Dateinamen/-Typ selbst auswählen kann.
Beim Abbrechen soll sie Sub abgebrochen werden (kein Problem mit if => exit Sub)

Ich habe nun auf mehreren Forum einzelteile gefunden gehabt, kann dies allerdings nicht auf mein Problem anwenden.

Speichern unter:

Code:

Hier wird Allerdings das komplette File abgespeichert und nciht nur das Sheet.

Mir wäre es wichtig, da ich zeitgleich mit dem Abspeichern auch ein Export ins Access tätige. Hier haben ich bereits den Code geschrieben und geprüft.

Könnte hier mir bitte jemand weiterhelfen?

Für Eure Hilfe bin ich wirklich dankbar!

MfG

Jason

:)

 

Moin, SirJason,

per ActiveSheet.Copy eine neue Arbeitsmappe erzeugen und diese speichern...

 

Hallo Jason,

das funktioniert mit folgendem Code :

VBA-Code:

Private Sub CommandButton1_Click()     Speichern End Sub Sub Speichern()     Dim strDateiname As String     'ggf. Laufwerk und Ordner als Vorgabe setzen     ChDir "\"     ChDrive "c:\"     'Das Dialogfenster, "test.xls" als Vorgabedatei     strDateiname = Application.GetSaveAsFilename _       ("Test.xls", "Microsoft Excel-Dateien (*.xls),*.xls")     If TypeName(strDateiname) = "String" Then 'Wenn Dateiname angegeben wurde und mit OK bestätigt :         ActiveSheet.Copy    'Kopiert nur das aktuelle Blatt in eine neue Mappe         ActiveWorkbook.SaveAs strDateiname 'neue Mappe unter eingegebenenm Namen speichern         ActiveWorkbook.Close 'Neue Mappe wieder schliessen         MsgBox "Dateiname :" & vbLf & vbLf & strDateiname, vbOKOnly + vbInformation, "Datei wurde gespeichert :"     End If     'MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Hallo NoNet,

vielen lieben dank schon für den Tip.
Ich habe deinen Code probiert umzusetzen, allerdings geht er auch in die IF Schleife wenn auf abbrechen gedrückt wird :-(

Wie könnte ich dies umgehen?

Vielen Dank und VG

Jason

 

Hallo zusammen,

ich habe nun den Code bischen abgeändert

Code:

das funktioniert in dieser art. Jedoch muss ich nun ein Paar feinheiten klären.
Würde mich aber gerne noch mal an Euch wenden, wenn ich nicht mehr weiterkomme.

Vielen Dank und Gruß

Jason

 

Hallo Jason,

sorry für den Fehler, es hätte gereicht, die Variable als VARIANT zu deklarieren.
Deine Version mit "Exit Sub" gefällt mir grundsätzlich nicht !
Hier der korrigierte Code :

VBA-Code:

Sub Speichern()     Dim varDateiname As Variant     'ggf. Laufwerk und Ordner als Vorgabe setzen     ChDir "\"     ChDrive "c:\"     'Das Dialogfenster, "test.xls" als Vorgabedatei     varDateiname = Application.GetSaveAsFilename _       ("Test.xls", "Microsoft Excel-Dateien (*.xls),*.xls")     If TypeName(varDateiname) = "String" Then 'Wenn Dateiname angegeben wurde und mit OK bestätigt :         ActiveSheet.Copy    'Kopiert nur das aktuelle Blatt in eine neue Mappe         ActiveWorkbook.SaveAs varDateiname 'neue Mappe unter eingegebenenm Namen speichern         ActiveWorkbook.Close 'Neue Mappe wieder schliessen         MsgBox "Dateiname :" & vbLf & vbLf & varDateiname, vbOKOnly + vbInformation, "Datei wurde gespeichert :"     End If     'MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Super !!!

vielen Dank

Ich bin grad noch am tüfteln, Das gespeicherte File ohne den Button zu speichern.
Da suche ich mir den entsprechenden Code noch raus.
ich hoffe ich werde fündig.
Aber du hast mir schon mehr als geholfen.

Vielen Dank und Gruß

Jason