Datum

Titel

16.04.2024 09:22:11

Wenn Istleer über mehrere Blätter

15.04.2024 23:32:21

Darstellung im IMAGE sehr schlecht

15.04.2024 21:08:34

PDF mit Makro erstellen mehrere Sheets

15.04.2024 18:38:39

Arbeitszeiten Vorlage ergänzen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1500to1504

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Neue Exceldatei mit nur einem Tabellenblatt

Forumthread: Neue Exceldatei mit nur einem Tabellenblatt
5 Beiträge zu diesem Forumthread
Anzeige
314 Threads zu ähnlichen Themen
Top 100 Forumthreads

21.06.2016 14:22:41

Peter Weber

Hallo Zusammen,
ich habe eine Datei X mit 10 Tabellenblättern (Tabelle1 bis Tabelle10).
Es soll nun eine neue Excelldatei (Datei Y) per VBA erstellt werden aber nur mit der Tabell5.
Wie kann man das am geschicktesten machen?
Danke für Eure Hilfe
LG, Peter

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Mördercode ;-)

21.06.2016 14:25:40

RPP63
AW: Mördercode ;-)

22.06.2016 09:20:22

Peter Weber
AW: Der Mördercode wird doppelt so lang

22.06.2016 09:54:54

UweD
AW: Der Mördercode wird doppelt so lang

22.06.2016 13:10:13

Peter Weber
AW: Prima! mwT

22.06.2016 13:33:56

UweD

Mördercode ;-)

21.06.2016 14:25:40

RPP63

Moin!
Dies reicht bereits:

Sub RPP()
Tabelle5.Copy
End Sub

Gruß Ralf

AW: Mördercode ;-)

22.06.2016 09:20:22

Peter Weber

Hallo Ralf,
vielen Dank für deine Antwort.
Bei diesem kleinen Makro wird eine neue Datei mit dem Namen Mappe1 erstellt.
Das ist soweit OK, super.
Die neue Datei soll aber unter M:\Met\QUA\REK\ mit dem Namen XYZ.xls direkt erstellt werden.
Wie würde dazu der Befehl aussehen?
Vielen Dank für deine Antwort im voraus,
LG, Peter

AW: Der Mördercode wird doppelt so lang

22.06.2016 09:54:54

UweD

Sub RPP()
    Tabelle5.Copy
    ActiveWorkbook.SaveAs Filename:="M:\Met\QUA\REK\XYZ.xls", FileFormat:=xlExcel8
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

LG UweD

AW: Der Mördercode wird doppelt so lang

22.06.2016 13:10:13

Peter Weber

Hallo Uwe
vielen Dank!
Mein Code sieht jetzt so aus:


Sub Sep8DExcel()
Tabelle6.Copy
Filename = "Text1_" & Cells(6, 3) & "_" & Cells(10, 8)
ActiveWorkbook.SaveAs Filename:="M:\x\y\z\" & Filename & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

LG, Peter

AW: Prima! mwT

22.06.2016 13:33:56

UweD

Hallo
da zu eine Zeile davor gespeichert hast und keine weiteren Veränderungen an der Datei vorgenommen hast, kannst du das Fehler aus/einschalten weglassen.
~~Application.DisplayAlerts = False~~
ActiveWorkbook.Close
~~Application.DisplayAlerts = True~~