Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
232to236
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
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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


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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige