Mit Makro in eine andere Datei Makro schreiben

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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...

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
-------------------------------------------------------------------

Beliebteste Forumthreads (12 Monate)

Mit Makro in eine andere Datei Makro schreiben

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit Makro in eine andere Datei Makro schreiben

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

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread