title image


Smiley Damit komm ich nicht weiter... Hier zum nachvollziehen:
Danke für die schnelle Antwort, aber leider komm ich damit nicht weiter.



Hier das selbe Problem, aber zum besseren nachvollziehen anders aufgebaut.

Die msgbox soll bei jedem öffnen erscheinen, auch wenn die datei über das Makro refresh ohne speichern neu aufgerufen wird.



in einem Modul:

>Public Sub refresh()

>ThisWorkbook.Saved = True

>Workbooks.Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

>End Sub

>

>public sub Startprozedur()

>msgbox "test"

>end sub



in "DieseArbeitsmappe":

>private sub workbook_open()

>Startprozedur

>End Sub



Ich hab auch schon damit rumprobiert, geht aber auch nicht:

>Private Sub Worksheet_Activate()

>Startprozedur

>End Sub



Anmerkung: Das Problem ist hier auf das wesentliche reduziert, da die eigentliche Datei recht komplex ist. Wenn dies funktioniert, sollte es eigentlich auf die Originaldatei übertragen werden können.



Gruss, Marco

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: