Mit Makro in eine andere Datei Makro schreiben

Forumthread: Mit Makro in eine andere Datei Makro schreiben

14.12.2006 09:17:04

Jakob

Hallo,
ich würde gerne mit einen Makro, folgenden Makro in eine andere Datei schreiben. Geht das? Hintergrund ist, dass ich für einen wiederkehrenden Bericht Navigationsschaltflächen in diesen Bericht automatisch erstellen möchte.
-------------------------------------


Sub Gesamt2007()
With ActiveChart.PivotLayout.PivotTable.PivotFields("Commercial Line Code")
.Orientation = xlPageField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Country Code")
.Orientation = xlPageField
.Position = 1
End With
ActiveChart.PivotLayout.PivotTable.PivotFields("Jahr").CurrentPage = "2007"
End Sub


Sub Gesamt2006()
With ActiveChart.PivotLayout.PivotTable.PivotFields("Commercial Line Code")
.Orientation = xlPageField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Country Code")
.Orientation = xlPageField
.Position = 1
End With
ActiveChart.PivotLayout.PivotTable.PivotFields("Jahr").CurrentPage = "2006"
End Sub

-------------------------------------
Vielen Dank im Voraus für Eure Hilfe.
Gruß
Jakob

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit Makro in eine andere Datei Makro schreiben

14.12.2006 10:37:39

Hoffi

Hallo Jakob,
ich würde es so machen, das ich das gesmate Modul in die andere Datei exportiere und im Workbook_Open Ereignis dieser Datei dann die Makros aufrufe. Das würde dann so gehen.
Sub Modul_Export()
Dim Wb As Workbook
Dim Datei As String
Dim Pfad As String
Application.ScreenUpdating = False
Datei = "C:\Test.xls" 'hier der Name der Datei in die es rein soll
Pfad = "C:\mod.bas"
ThisWorkbook.VBProject.VBComponents("Modul2").Export Pfad 'Name des Moduls eventuell anpassen
Set Wb = Workbooks.Open(Datei)
Application.VBE.MainWindow.Visible = True
    With Wb.VBProject.VBComponents(Wb.CodeName).CodeModule
    .InsertLines 3, "Private sub Workbook_Open()"
    .InsertLines 4, "Call Gesamt2007"
    .InsertLines 5, "Call Gesamt2006"
    .InsertLines 6, "End Sub"
    End With
ActiveWorkbook.VBProject.VBComponents.Import Pfad
Kill Pfad
Wb.Close True
Application.VBE.MainWindow.Visible = False
Application.ScreenUpdating = True
End Sub

Grüße
Hoffi
P.S. Rückmeldung wäre nett...

AW: Mit Makro in eine andere Datei Makro schreiben

14.12.2006 17:30:10

Jakob

Hallo Hoffi,
ich habe versucht Dein Makro meinen Bedürfnissen nach anzupassen. Ich habe wie vorgeschlagen meinen Code in die Datei "Schaltflaechen.bas" exportiert.
Ich habe aktuell ein Problem mit der folgenden Zeile:
Workbooks("Schaltflaechen.xls").VBProject.VBComponents("Schaltflaeche").Export Pfad 'Name des Moduls eventuell anpassen
Wie müßte der Code aussehen, damit "Schaltflaechen.bas" in die Datei "ADS Analyse.xls" eingefügt wird.
Vielen Dank für Deine Hilfe.
Gruß
Jakob
-------------------------------------------------------------------
Sub Modul_Export()
Dim Wb As Workbook
Dim Datei As String
Dim Pfad As String
Application.ScreenUpdating = False
Datei = "C:\Documents and Settings\dl336\SapWorkDir\ADS\ADS Analyse.xls" 'hier der Name der Datei in die es rein soll
Pfad = "C:\Documents and Settings\dl336\SapWorkDir\ADS\Schaltflaechen.bas"
'ThisWorkbook.VBProject.VBComponents("Modul2").Export Pfad 'Name des Moduls eventuell anpassen
Workbooks("Schaltflaechen.xls").VBProject.VBComponents("Schaltflaeche").Export Pfad 'Name des Moduls eventuell anpassen
Set Wb = Workbooks.Open(Datei)
Application.VBE.MainWindow.Visible = True
With Wb.VBProject.VBComponents(Wb.CodeName).CodeModule
' .InsertLines 3, "


Private Sub Workbook_Open()"
'    .InsertLines 4, "Call Gesamt2007"
'    .InsertLines 5, "Call Gesamt2006"
'    .InsertLines 6, "End Sub

"
End With
ActiveWorkbook.VBProject.VBComponents.Import Pfad
Kill Pfad
Wb.Close True
Application.VBE.MainWindow.Visible = False
Application.ScreenUpdating = True
End Sub
-------------------------------------------------------------------

AW: Mit Makro in eine andere Datei Makro schreiben

18.12.2006 10:25:21

Hoffi

Hallo Jakob,
wie heisst den das Modul?
Schaltflaeche oder Schaltflaechen?
der Name des Moduls, das Du exportietren willst muss hier hin:
ThisWorkbook.VBProject.VBComponents("Modul2").Export Pfad 'anstelle Modul2 kommt der Name Deines Moduls
Du musst das Modul in Deiner Mappe Schaltflaechen.xls drinn haben, diese Datei muss dann auch geöffnet sein. Deswegen, ThisWorkbook...
Grüße
Hoffi

Beliebteste Forumthreads (12 Monate)

Mit Makro in eine andere Datei Makro schreiben

Forumthread: Mit Makro in eine andere Datei Makro schreiben

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Mit Makro in eine andere Datei Makro schreiben

Forumthread: Mit Makro in eine andere Datei Makro schreiben

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread