Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben

Gruppe

Prozedur

Problem

Wie kann ich in XL8 über VBA-Code eine Arbeitsmappe anlegen, im Klassenmodul der Arbeitsmappe und eine Workbook_Open-Prozedur schreiben?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub OpenProzedurAnlegen()
   Dim wkb As Workbook
   Dim sFile As String
   Application.ScreenUpdating = False
   sFile = Application.Path & "\testwkb.xls"
   Set wkb = Workbooks.Add(1)
   With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule
      .InsertLines 3, "Private Sub Workbook_Open()"
      .InsertLines 4, "    Msgbox ""Bin jetzt da!"""
      .InsertLines 5, "    ActiveWorkbook.Close Savechanges:=False"
      .InsertLines 6, "End Sub"
   End With
   Application.DisplayAlerts = False
   ActiveWorkbook.SaveAs sFile
   Application.DisplayAlerts = True
   ActiveWorkbook.Close savechanges:=False
   Workbooks.Open sFile
   Application.ScreenUpdating = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Prozedur