Posts

Es werden Posts vom Juli, 2011 angezeigt.

Tabellenblatt einfügen abfangen Vorlage kopieren

Wie kann (M)man(n) das einfügen von Tabellenblättern Applikationsweit abfangen um eine eigene Vorlage einzufügen? Das ganze soll als Addin laufen. Da gibt es ja das Ereignis "Private Sub Workbook_NewSheet(ByVal Sh As Object)" in "DieseArbeitsmappe". Das greifen wir uns und packen alles in ein Addin. Um das zu knacken sollte (M)man(n) in der Hilfe nach "WorkbookNewSheet" schauen.

Tabellenblatt einfügen abfangen Vorlage kopieren...[ZIP, 70 KB]

' Code in "DieseArbeitsmappe"
Option Explicit
Dim AppObject AsNew clsDatei
PrivateSub Workbook_Open()
Set AppObject.AppLiCa = Application
EndSub
PrivateSub Workbook_BeforeClose(Cancel AsBoolean)
Set AppObject.AppLiCa =Nothing
EndSub

' Code in ein Klassenmodul mit Namen "clsDatei"
Option Explicit
Public WithEvents AppLiCa As Application
PrivateSub AppLiCa_WorkBookNewSheet(ByVal Wb As Workbook,_
ByVal Sh AsObject)
OnErrorGoTo Fin
With AppLiCa
.ScreenUpdating =False
.DisplayAlerts =False
EndWith
With Wb
.Worksheets…