Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro für Datei erstellen/Daten kopieren

Forumthread: Makro für Datei erstellen/Daten kopieren

Makro für Datei erstellen/Daten kopieren
20.03.2003 10:06:29
Chris
Hallo zusammen,

habe ein Problem:
Ich habe eine ComboBox1, wenn dieser "Ölfilter" zugewiesen wird, dann soll eine neue Excel-Datei erstellt werden, mit dem Namen:
Ölfilter_15.02.2003.xls
(Datumin Blatt "Data Sheet"Cells (3,6) enthalten)

In dieser Datei sollen Tabellenblätter z.B. "Differenzdruck", "Berstdruck" hineinkopiert werden, wobei die darin enthaltenen Formeln erhalten werden sollen!

Mein Ansatz:

Private Sub cmdWeiter_Click()
If ComboBox1.Value = "Ölfilter" Then
Workbooks Add
Active Workbook.SaveAs(Prüfung_Ölflter.xls)
Windows("ComboBox1"_"Data Sheet (3,6)"."xls").Activate
Data Sheets("Differenzdruck").Copy After:= Workbooks_
("Prüfung_Ölfilter.xls).Sheets(3)
.......


Wer kann mir denn weiterhelfen!

Vielen Dank im Voraus
Gruss Chris

End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro für Datei erstellen/Daten kopieren
20.03.2003 10:22:49
Nike

Hi,
na dieser Ölfilter läßt dich ja echt nicht ruhen ;-)

Private Sub cmdWeiter_Click()
dim wkbBasis as workbook
set wkbBasis = activeworkbook
If ComboBox1.Value = "Ölfilter" Then
Sheets(Array("Differenzdruck", "Berstdruck" )).Copy
Active Workbook.SaveAs("Ölfilter_" & wkbBasis.worksheets("Data Sheet").Cells(3,6).value & ".xls)
'...

Bye

Nike


Anzeige
Re: Makro für Datei erstellen/Daten kopieren
20.03.2003 10:35:57
Chris

Hi Nike,

ich danke Dir wieder einmal!
Hast aber recht! Träume schon Nachts von Excel! *g*

Dir noch nen schönen Tag!

LG Chris

Re: Makro für Datei erstellen/Daten kopieren
20.03.2003 10:47:01
Chris

Hi Nike,

habe doch noch ein kleines Problem:

Bei der Befehlszeile:

Active Workbook.SaveAs("ComboBox1_" & wkbBasis.worksheets("Data Sheet").Cells(3,6).value & ".xls)

--> Hier gibt er mir immer Listentrennzeichen als Fehler an
Kannst Du mir vielleicht sagen, wo mein Fehler ist!?

Danke
Chris

Anzeige
Re: Makro für Datei erstellen/Daten kopieren
20.03.2003 10:55:35
Nike

Hi,
ich nehme an du willst den Wert von Combobox1 auslesen?
Active Workbook.SaveAs(ComboBox1.value & wkbBasis.worksheets("Data Sheet").Cells(3,6).value & ".xls)

Bye

Nike

;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige