1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

VBA Excel Dateiübergreifend

Discussion in 'Office-Programme' started by Koyote86, Sep 2, 2008.

Thread Status:
Not open for further replies.
  1. Koyote86

    Koyote86 Byte

    Hallo Leute,

    Habe ein kleines Problem, ich versuche es verständlich zu erklären...

    Ich habe 3 Excel Sheets

    1.File eine kleine freigegebene Excel Liste auf die mehrere User zugreifen
    2. File liest eine Access Datenbank aus um sie umzuformatieren
    3. File ist ein Dummy File das beim öffnen von File 2 die Einstellung übernimmt das die Access Daten aktualisiert werden.

    Jetzt habe ich einen VBA Code der von File 1 aus File 3 ausführt um File 2 mit den aktuellen Daten zu öffnen und dann die Daten auszulesen...

    jetzt läuft File 3 öffnet File 2, aktualisiert und schließt sich wieder, jetzt ginge der VBA Code in File 1 Weiter aber der Code bleibt "stehen"

    Wie kommt ich dahin das der Code in FIle 1 weiter ausgeführt wird??

    in File 3 steht:
    Private Sub Workbook_Open()
    Dim Pfad, Datei, Dateiname As Variant
    Application.ScreenUpdating = False
    Application.AskToUpdateLinks = False
    Pfad = "C:\Test"
    Datei = "daten.xls"
    Dateiname = ActiveWorkbook.Name
    Workbooks.Open Filename:=Pfad & Datei
    Windows(Dateiname).Activate
    Application.AskToUpdateLinks = True
    Application.ScreenUpdating = True
    ActiveWorkbook.Close
    End Sub

    Danach bleibt daten.xls offen ich möchte aber zu File 1 zurück um den Code weiterzuführen...


    hat jemand eine Idee??

    Danke für die HIlfe!!
     
    Koyote86, Sep 2, 2008
    #1
  2. brum

    brum Kbyte

    Wenn Du die Datei, aus der das Makro ausgeführt wurde, schliesst, wird auch das Makro beendet. (Mit ActiveWorkbook.Close schliesst Du ja die Datei...)

    Du musst also die Datei so lange geöffnet lassen, bis die ganze Aufgabe erledigt ist.

    Gruss
    Bruno
     
    brum, Sep 3, 2008
    #2
  3. Koyote86

    Koyote86 Byte

    Naja ich habe es jetzt folgendermaßen versucht:

    Aus FIle 1 öffne ich File 3
    aus File 3 öffne ich ein Makro in File 2 mit den aktualisierten daten

    Am Ende des Makros in File 2 schließe ich File 2.

    Aber File 3 lässt sich nicht schließen!
    Ich habe versucht das schließen von File 3 am Ende des Makros in diesem File zu schreibern aber es funktioniert nicht....

    Ich versuche nochmal den Code hier darzustellen:

    File 1:
    in FIle 3 steht:
    in FIle 2 steht:

    Aber File 3 bleibt offen....
     
    Koyote86, Sep 3, 2008
    #3
Thread Status:
Not open for further replies.

Share This Page