Office: Variable in anderes Workbook übergeben

Hallo,

ich möchte mit einem Makro eine Datei öffnen

Code:

Private Sub CommandButton1_Click()
Dim intMonat As Integer, intJahr As Integer
    
    With Menü_Lohn
        intMonat = CBox_Monat.ListIndex + 1
        intJahr = AktJahr_box
    End With
    
    Workbooks.Open Filename:="C:\Stat\TaAP.xlsm"
End Sub

und in der Datei startet dann automatisch ein anderes Makro mit

Code:

Private Sub workbook_open

Ich muss aber die beiden Variablen intMonat und intJahr in das neue Makro übergeben. Wie mache ich das?

Ich benutzte Excel 2010.

Danke!

 

Mi Marius,

nach folgendem Prinzip:

1. Ausgangsmappe

Code:

Sub Uebergabe()
   Dim intMonat As Integer
   Dim lngJahr As Long
   intMonat = 3
   lngJahr = 2012
   Workbooks.Open "D:\Test\Mappe2.xlsm"
   Application.Run ("Mappe2.xlsm!Ausfuehren"), intMonat, lngJahr
End Sub

2. Zielmappe - Code in einem allgemeinen Modul:

Code:

Sub Ausfuehren(intMonat2 As Integer, lngJahr2 As Long)
   MsgBox intMonat2
   MsgBox lngJahr2
End Sub

Bis später,
Karin

 

Alles klar, Danke!