Office: makro aus anderer Datei starten

IngGi · 21. Mai 2012

Hallo Mario,

in das Modul des Tabellenblattes mit dem auslösenden Button:

'#######################################################
'# #
'# Code einfügen in: #
'# das Klassenmodul des betreffenden Tabellenblattes #
'# #
'#######################################################
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub CommandButton1_Click()
Dim ff
ff = FreeFile
Dim txt
txt = " "
Open "p:\bahnhofsteuerung\leertext.txt" For Output As #ff
Print #ff, txt
Close #ff
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei: Creating Menus For The VBA Editor
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

phobos · 23. Mai 2012

Funktioniert perfekt. Danke Ingolf*top

phobos · 29. Mai 2012

Hi!

es ist noch ein Problem aufgetaucht.
mit
Code:

Private Sub Workbook_Open()
dtmZeit = Now + CDate("00:00:03")
Application.OnTime dtmZeit, "Zeitprüfung"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wird ja Code "Zeitprüfung" aufgerufen, in dem ständig eine Schleife durchlaufen wird.

Wo ist das Problem?:
Von Datei 1 ausgehend kopiere ich einen Bereich von Datei 2 nach Datei 1.
Der Code in Datei 1 sieht so aus.
Code:

Sub CB_Ansichtaktuell_Click()

On Error GoTo Fehler
Dim objWb As Object
Dim objSH As Object
Dim AktuelleMappe As Workbook
Set AktuelleMappe = ActiveWorkbook

Set objWb = GetObject("V:\Bahnhof - Kopie.xlsm")
Set objSH = objWb.Sheets(3)

ActiveSheet.Unprotect Password:="xxx"
objSH.Range("A2:CG24 ,A26:CG50").Copy AktuelleMappe.Sheets(1).Cells(2, 1)

Set objSH = Nothing
objWb.Close savechanges:=False
Set objWb = Nothing
Set AktuelleMappe = Nothing
Exit Sub
Fehler:
MsgBox "Achtung! Keine Quelldatei gefunden. Operation NICHT erfolgreich"
Set objSH = Nothing
Set objWb = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Durch Code:

...Set objWb = GetObject("V:\Bahnhof - Kopie.xlsm")
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wird ja Datei 2 geöffnet und im Projektfenster dargestellt.

Nachdem mit Code:

objSH.Range("A2:CG24 ,A26:CG50").Copy AktuelleMappe.Sheets(1).Cells(2, 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der Bereich von Datei 1 in Datei 2 kopiert wurde versucht das Programm noch einmal zu kopieren.*entsetzt Dabei kommt die Meldung das das Programm Schreibgeschützt ist.
Ich vermute das hängt damit zusammen das die obige Schleife durch das öffnen im Projektfenster aufgerufen wurde und immer noch läuft.

Wie kann ich das verhindern. Vermutlich muss die Schleife in Datei2 aus Datei 1 heraus angehalten werden?

langer Text. Hoffentlich verständlich*cool.gif*

IngGi · 30. Mai 2012

Hallo Mario,

ich bin mir nicht so sicher, dass da ein Zusammenhang besteht. Aber probier's ruhig mal aus. Abbrechen lässt sich das Ganze mit
Code:

Application.OnTime, dtmZeit, "Zeitprüfung", Schedule:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... und wieder gestartet wird dann mit ...
Code:

dtmZeit = Now + CDate("00:00:03")
Application.OnTime, dtmZeit, "Zeitprüfung"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

phobos · 30. Mai 2012

Hi Ingolf

wo soll ich die Programmzeilen einfügen?

Aktuell sind sie schon in den Modulen vorhanden. siehe dein Post #16

IngGi · 30. Mai 2012

Hallo Mario,

du vermutest ja, dass die zeitgesteuerte Überprüfung mit dem Makro CB_Ansichtaktuell_Click kollidiert. In diesem Fall würde ich die Überprüfung am Anfang dieses Makros abbrechen und am Ende wieder aufnehmen.

Gruß Ingolf

phobos · 30. Mai 2012

Hallo Ingolf,

Hab ich dich jetzt richtig verstanden?
mit
Code:

Application.OnTime, dtmZeit, "Zeitprüfung", Schedule:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die Überprüfung beenden.

Das Makro Sub CB_Ansichtaktuell_Click() befindet sich in nem Klassenmodul Tabellenblatt in Datei 1.
Die Überprüfung, also das Makro Zeitprüfung() befindet sich in einem allgemeinen Modul von Datei 2.

Geht also nicht, oder was muss ich anpassen?

IngGi · 31. Mai 2012

Hallo Mario,

das Problem ist in diesem Fall die Variable dtmZeit. Diese ist zwar überall in der Datei 2 bekannt, nicht aber in der Datei 1. Wenn du den Inhalt der Variablen in eine Zelle auf einem Tabellenblatt schreibst, kannst du auch von anderen Dateien darauf zugreifen.

Dass die Prozedur Zeitprüfung in einer anderen Datei steht, sollte dagegen kein Problem sein.

Gruß Ingolf

phobos · 3. Juni 2012

Hi Ingolf!

Sorry, aber ich verstehe deinen letzten Beitrag nicht*frown.gif*
Kannst Du mir das Verständlicher erläutern?

Office: makro aus anderer Datei starten

makro aus anderer Datei starten

makro aus anderer Datei starten

makro aus anderer Datei starten

makro aus anderer Datei starten

makro aus anderer Datei starten - Similar Threads - makro Datei starten

Name der Datei durch Excel geändert

Makro öffnet unerwartete Datei

Word-Dateien über Excel in eine ausgewählte Word-Datei übertragen per Makro

Makro Zip-Datei von Webseite runterladen, auspacken, kopieren

Dokumente und Blatt umbenennen

Export-Makro überschreibt .xlsx-Dateien nur taggleich

Makro erstellen