Thema Datum  Von Nutzer Rating
Antwort
Rot Parameterübergabe
 29.08.2017 08:50:21 Felix
NotSolved
29.08.2017 08:52:43 Felix
NotSolved

Ansicht des Beitrags:
Von:
Felix		 Datum:
29.08.2017 08:50:21		 Views:
1429		 Rating:
     
Antwort:
  Ja
Thema:
Parameterübergabe
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!!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Parameterübergabe
 29.08.2017 08:50:21 Felix
NotSolved
29.08.2017 08:52:43 Felix
NotSolved