Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon afetinci vom 19.10.2021, 13:26 Options

Tabellenblatt anhand von Makro speichern

Hallo Leute,

gibt es eine Möglichkeit über ein Button aus "Tabelle 1" die komplette "Tabelle 2" als eine eigene Excel Mappe zu speichern?

Die Speicherung soll mit dem Namen "DATENAUSW" im Ordner "C:Dokumente und Einstellungen" erfolgen.

Der Name und der Speicherort bleibt immer gleich.

Gruß

Antwort schreiben

Antwort 1 von coros vom 19.10.2021, 13:55 OptionsLösung

Hallo,

das sollte mit nachfolgendem Makro funktionieren.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit Sub Blatt_kopieren_und_speichern() Dim objNewWorkbook As Workbook Application.ScreenUpdating = False Sheets("Tabelle2").Cells.Copy Set objNewWorkbook = Workbooks.Add objNewWorkbook.Sheets(1).PasteSpecial On Error GoTo ERRORHANDLER Application.DisplayAlerts = False objNewWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\DATENAUSW.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False objNewWorkbook.Close ERRORHANDLER: Set objNewWorkbook = Nothing Application.DisplayAlerts = True End Sub
Ich hoffe, Du mientest das so?

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von afetinci vom 19.10.2021, 15:13 Options

Besten Dank für deine Antwort!!

Hat mir auf jeden Fall geholfen!

Gruß
afetinci

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken