Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1092to1096
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
Inhaltsverzeichnis

Neue Datei

Neue Datei
Stefanglander
Guten Abend Forum,
ich habe folgendes Problem: Ich möchte gerne mit einem CMB eine neue Datei anlegen.
Dazu habe ich folgendes ausprobiert, abe rirgendwie haut es nicht hin.
Sub Neu1()
Workbooks.Add
Windows("Recherche_Ergebnisse.xls").Activate
Range("D2").Select
Application.Run "STPCSCopy"
Windows("Mappe6").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Glander, Stefan"
Range("B32").Select
Windows("Recherche_Ergebnisse.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Glander, Stefan").Select
Range("D3").Select
Application.CutCopyMode = False
ActiveSheet.Unprotect
Columns("A:L").Select
Application.Run "STPCSCopy"
Windows("Mappe6").Activate
Columns("A:A").Select
ActiveSheet.Paste
Windows("Recherche_Ergebnisse.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Variablen").Select
End Sub
Die Datei sollte am Ende noch mit dem Namen des Tabellenblattes gespeichert werden
Lieben Gruss
Stefan

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Neue Datei
09.08.2009 22:34:26
Gerd
Hallo Stefan,
falls Du eine angepasste Lösung haben möchtest, denke ich, solltest Du noch die Prozedur
"STPCSCopy"
zeigen.
Gruß Gerd
AW: Neue Datei
10.08.2009 09:25:53
Stefanglander
Hallo Gerd,
kopiert werden soll immer der Bereich A1:L105.
Lieben Gruss
Stefan
Mist geschrieben
10.08.2009 18:59:19
Stefanglander
Hallo Gerd,
habe heut emorgen nicht nachgedacht.
Ich beschreibe am besten nocheinmal was ich mit der Prozedur bewirken will.
In der Datei Recherche befindet sich auf dem Tabellenblatt Variablen in der Zelle C3 ein Name.
Die neue Daei soll so heißen.
Dann soll in das Tabellenblatt1 der neuen Datei das Blatt 4 der Datei Recherche in Bereich A1:L100 kopiert werden.
Am Ende soll die neue Datei im selben Pfad gespeicht sein.
Gruss
Stefan
Anzeige
AW: Neue Datei
10.08.2009 20:32:15
Gerd
Hallo Stefan,
ich habe mich nur an deine letzte Beschreibung gehalten.
Sub Auszug_in_neue_Datei()
Dim Quelldatei As Workbook
Dim Quellblatt As Object
Dim Name_der_neuen_Datei As String
Dim Kopierbereich As Range
Dim Zieldatei As Workbook
Set Quelldatei = ThisWorkbook
Set Quellblatt = Quelldatei.Sheets(4) 'oder Sheets("Tabelle4")
Set Kopierbereich = Quellblatt.Range(Quellblatt.Cells(1, 1), Quellblatt.Cells(100, 12))
Name_der_neuen_Datei = Quelldatei.Sheets("Variablen").Cells(3, 3).Value & ".xls"
Application.ScreenUpdating = False
Set Zieldatei = Workbooks.Add(xlWBATWorksheet)
Kopierbereich.Copy Zieldatei.Sheets(1).Cells(1, 1)
Zieldatei.SaveAs Filename:=ThisWorkbook.Path & "\" & Name_der_neuen_Datei
Zieldatei.Close
Application.ScreenUpdating = True
End Sub
Gruß Gerd
Anzeige
Danke, probiere ich morgen gleich aus (o.T.)
10.08.2009 21:29:06
Stefanglander
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige