Das Geheimnis von RunAutoMacros

Kopieren Sie den untenstehenden VBA-Code in ein Standardmodul und führen Sie dann die Prozedur RunAutoCode aus. Was stellen Sie fest?

Sub Auto_Open()
  Debug.Print "Auto_Open ausgeführt"
End Sub
Sub Auto_Close()
  Debug.Print "Auto_Close ausgeführt"
End Sub
Sub RunAutoCode()
  Debug.Print "Makro RunAutoCode gestartet"
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  Debug.Print "Makro RunAutoCode beendet"
End Sub

Sub RunAutoCode2()
  Debug.Print "Makro RunAutoCode2 gestartet"
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  Debug.Print "Makro RunAutoCode2 beendet"
End Sub
Sub RunAutoCode3()
  Debug.Print "Makro RunAutoCode3 gestartet"
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  Debug.Print "Makro RunAutoCode3 beendet"
End Sub
Sub RunAutoCode4()
  Debug.Print "Makro RunAutoCode4 gestartet"
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  Debug.Print "Makro RunAutoCode4 beendet"
End Sub
Sub RunAutoCode5()
  Debug.Print "Makro RunAutoCode5 gestartet"
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  Debug.Print "Makro RunAutoCode5 beendet"
End Sub
Sub RunAutoCode6()
  Debug.Print "Makro RunAutoCode6 gestartet"
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  ThisWorkbook.RunAutoMacros which:=xlAutoOpen
  ThisWorkbook.RunAutoMacros which:=xlAutoClose
  Debug.Print "Makro RunAutoCode6 beendet"
End Sub

The eXpLorer

Zuletzt aktualisiert am 13.05.2003 / 17:30 Uhr
© Copyright 2002-2003 by Philipp von Wartburg, CH-8917 Oberlunkhofen
Alle Rechte vorbehalten