Ansicht wechselt in Editor

Forumthread: Ansicht wechselt in Editor
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Ansicht wechselt in Editor

08.05.2013 13:09:52

Gregor

Hallo zusammen
Ich starte aus einem Blatt einen VBA Code. Beim Code
"With Workbooks("Muster.xlsm").VBProject.VBComponents(Worksheets(WS).CodeName).CodeModule"
wechselt die Ansicht während der Ausführung auf den Editor und bleibt dort, bis das Makro zu Ende ist (dauert einige Zeit). Application.ScreenUpdating und Application.EnableEvents ist auf False gesetzt. Wie kann ich verhindern, dass die Ansicht in den Editor wechselt?
Danke und Gruss
Gregor

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ansicht wechselt in Editor

08.05.2013 13:17:28

Nepumuk
AW: Ansicht wechselt in Editor

08.05.2013 14:13:52

Gregor

AW: Ansicht wechselt in Editor

08.05.2013 13:17:28

Nepumuk

Hallo,
teste mal:

Option Explicit

Private Declare Function LockWindowUpdate Lib "user32.dll" ( _
    ByVal hwndLock As Long) As Long

Public Sub Test()
    Call LockWindowUpdate(Application.VBE.MainWindow.Hwnd)

    'Dein Code

    Call LockWindowUpdate(0&)
End Sub

Gruß
Nepumuk

AW: Ansicht wechselt in Editor

08.05.2013 14:13:52

Gregor

Hoi Nepumuk
Vielen Dank, es funktionert (fast).
Schönheitsfehler: Im Auslöserblatt erscheint im vorderen Bereich ein zusätzlicher "Scroll-Balken", der nach dem Makro wieder verschwindet.
Gruss Gregor