VBA-Fenster öffnet sich unf bleib auf
16.01.2004 16:23:05
Michael O.
ich habe ein Programm geschrieben, welches meine VBA-Code in "Diese Arbeitsmappe" schreibt.
nachdem "
Sub AddWorkbookEvent(neuName)" gestartet ist geht das VBA-Fenster auf (obwohl SreenUpdaiting false ist) der Code läuft weiter durch und das Fenster geht nicht wieder zu :-( -- Das VisualBasic Fenster meine ich--
Wie bekomme ich das wieder zu und warum wird es überhaupt angezeigt??
Gruß
Michael
Sub UUKopieren()
Dim neuName, Verzeichnis, dname As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Urlaubsübersicht").Copy
neuName = ActiveWorkbook.name
Call AddWorkbookEvent(neuName)
.hier folgt noch mehr-------
Sub AddWorkbookEvent(neuName)
Dim lngStartLine As Long
With Workbooks(neuName).VBProject.VBComponents("DieseArbeitsmappe") _
.CodeModule
' Codeschablone einfügen
lngStartLine = .CreateEventProc("Open", "Workbook") + 1
' Code in Ereignis-Prozedur einfügen
.InsertLines lngStartLine, _
"Dim i, spalte, jetztwoche, woche As Single" & Chr$(13) _
& "Dim aktuelldatum As Date" & Chr$(13) _
& "Application.ScreenUpdating = False" & Chr$(13) _
& "Application.Calculation = xlManual" & Chr$(13) _
& "ActiveWorkbook.Colors(15) = RGB(230, 230, 230)"
End With
End Sub