Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einzelne Tabellenblätter apspeichern mit VBA

Einzelne Tabellenblätter apspeichern mit VBA
22.07.2008 10:15:00
Urmila
Hallo alle zusammen,
habe eine Frage:
Ich habe eine Exceldatei mit mehreren Tabellenblätter. Will jedoch die Spalten A bis Z kopieren, diese in einer neuen Exceldatei einfügen (Inhalte einfügen, Werte und Formate ebenfalls), Überschriften in Zeile A6 noch Autofilter und dies dann ohne "Blattregister", "Statusleiste", "Zeilen- und Spaltenüberschrift" etc. an einem bestimmten Pfad abspeichern (z.B. C:\Test\Bericht5.xls)
Diese wird dann desöfteren "geupdated" und nochmals unter dem selben Pfad abgespeichert.
Hierfür gibts doch sichrlich einen VBA Skript....
Danke
Urmila

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Tabellenblätter apspeichern mit VBA
22.07.2008 10:48:00
Hajo_Zi
Hallo Urmila,
Excel hat auch einen Makrorecorder mit dem man wiederholende Prozesse aufzeichnen kann.

AW: Einzelne Tabellenblätter apspeichern mit VBA
22.07.2008 13:32:34
Urmila
Hallo Hajo,
dass Excel Makro aufzeichnen kann, schon kklar, aber nur bei "Workbook.Add" taucht eine Fehlermeldung auf. Kannst du mir da bitte weiter helfen? :-)
Urmila

AW: Einzelne Tabellenblätter apspeichern mit VBA
22.07.2008 15:33:00
Hajo_Zi
Hallo Urmila,
ich sehe Deinen Code nicht.
Gruß Hajo

AW: Einzelne Tabellenblätter apspeichern mit VBA
22.07.2008 16:11:00
Urmila
Ohh ja klar...sorry
ActiveSheet.Columns("A:Z").Select
ActiveSheet.Selection.Copy
Workbooks.Add
ActiveSheet.Columns("A:Z").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A6").Select
Application.CutCopyMode = False
ActiveWindow.DisplayWorkbookTabs = False
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
ActiveSheet.Range("a6").Select
ActiveSheet.Selection.AutoFilter
ActiveWorkbook.SaveAs Filename:= _
"C:\Test\Nummer 1-autofilter.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Anzeige
AW: Einzelne Tabellenblätter apspeichern mit VBA
22.07.2008 19:01:22
Hajo_Zi
Hallo Urmila,
Option Explicit

Sub Urnila()
ActiveSheet.Columns("A:Z").Copy
Workbooks.Add
With ActiveSheet.Columns("A:Z")
.PasteSpecial Paste:=xlValues, Operation:=xlNone
End With
Application.CutCopyMode = False
ActiveWindow.DisplayWorkbookTabs = False
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
ActiveSheet.Range("a6").Select
ActiveSheet.Selection.AutoFilter
ActiveWorkbook.SaveAs Filename:= _
"C:\Test\Nummer 1-autofilter.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub


Gruß Hajo

Anzeige
AW: Einzelne Tabellenblätter apspeichern mit VBA
23.07.2008 10:31:00
Urmila
Perfekt,
genau das was ich brauchte, es funktioniert super
Vielen lieben Dank Hajo
Urmila

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige