Hallo zusammen,
ich zerbreche mir hier an meinem Makro den Schädel und weiß wirklich nicht weiter!
Ich möchte zu Beginn mittels einer Variable (datum) das Datum der letzten Berechnung auslesen und dieses datum in der Variable dann an andere Makros, die in anderen Dateien stehen, weitergeben.
Der Sinn dahinter ist, dass ich einige Berechnungen nur quartalsweise durchführen möchte. Also suche ich das jeweilige letzte Berechnungsdatum und möchte dieses an alle beteiligten Dateien weitergeben, so dass die Berechnungen Schritt für Schritt bis zum aktuellen Datum durchgeführt werden.
Hier einmal mein Code bis jetzt:
________________________________________________________________________________________________________________
Option Explicit
Public datum As Date
Sub Schleife()
Dim i As Variant
i = 0
Do
'Auslesen des letzten Berechnungsdatums
Windows("Validierungstool.xlsm").Activate
Sheets("Validierung").Activate
datum = Range("F24").Value
'Datum schrittweise um eins erhöhen
i = i + 1
datum = WorksheetFunction.WorkDay(datum, i)
'Starten der anderen Makros. Weitere Makros werden in den jeweiligen Dateien gestartet (nur eins abgebildet)
Application.Run "Liquidität_eigene_Berechnungen"
Loop Until datum = Date
End Sub
________________________________________________________________________________________________________________
Hier der Beginn des Folgemakros:
Option Explicit
'Das Makro stellt die Ergebnisse der Liquidität der eigenen Berechnungen dar bzw. importiert sie in die Datei
Sub Liquidität_eigene_Berechnungen(ByVal datum As Date)
Dim x As Integer
'Archivieren der Ergebnisse
Windows("Validierungstool.xlsm").Activate
Sheets("Eigene Daten").Activate
Range("A30:I30").Select
Selection.Insert Shift:=xlDown
Windows("Validierungstool.xlsm").Activate
Sheets("Eigene Daten").Activate
Range("J30:O30").Select
Selection.Insert Shift:=xlDown
'Öffnen von Liquidität täglich
Workbooks.Open Filename:= _
"V:\Controlling\Control\Programme\Validierung Liquirisiko\Liquidität täglich.xlsm", UpdateLinks:=0
Workbooks.Open Filename:= _
"V:\Controlling\Control\Programme\Validierung Liquirisiko\Crash_Daten.xlsm", UpdateLinks:=0
Workbooks.Open Filename:= _
"V:\Controlling\Control\Programme\Validierung Liquirisiko\Emittentenaufstellung.xlsm", UpdateLinks:=0
'Makros in Emittentenaufstellungen starten
Windows("Emittentenaufstellung.xlsm").Activate
Application.Run "'Emittentenaufstellung.xlsm'!Import_Bestand_83129"
Application.Run "'Emittentenaufstellung.xlsm'!cashflowtrans"
Application.Run "'Emittentenaufstellung.xlsm'!Aufteilung"
'Makros in Liquidität täglich starten
Windows("Liquidität täglich.xlsm").Activate
Application.Run "'Liquidität täglich.xlsm'!Analyse"
'Makros in Crash_Daten starten
Windows("Crash_Daten.xlsm").Activate
Application.Run "'Crash_Daten.xlsm'!Import"
Application.Run "'Crash_Daten.xlsm'!Anleihebestand_archivieren"
.....
Kann mir jemand weiterhelfen?
Es geht wirklich "nur" darum, dass der Wert der Variable datum an jedes andere Makro bzw. jede weitere Datei Schritt für Schritt weitergegeben wird.
Vielen Dank!!!
|