|
Hey Zusammen,
woran liegt es, dass meine Workbook_Open Prozedur nur korrekt abläuft, wenn der VBA Editor geöffnet ist?
Also beim Öffnen der ersten Datei läuft das Makro noch, aber wenn ich ne zweite Datei (wo das Gleiche passieren soll, abgerufen durch Workbook_Open), klappt es nicht mehr..nur mit geöffnetem VBA Editor.
Dies ist der Code im normalen Workbook:
Option Explicit
'Public WithEvents App As Application
Dim Klasse As New Basis_Klasse
Private Sub Workbook_Open()
Set Klasse.App = Application
' DoEvents
End Sub
Und dies im Modul:
Option Explicit
Public WithEvents App As Excel.Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
'MsgBox Wb.Name zum ausprobieren, was geöffnet ist
If Wb.Name Like "DLQ*.xlsm" Then
Call DLQstart
End If
End Sub
Das Makro für DLQstart buggt glaube ich in diesem Bereich - Pivot Chart wird nicht erstellt.
ActiveWorkbook.Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
ActiveWorkbook.Connections("WorksheetConnection_layout! $A$7:$S$" & LetzteZeile), Version _
:=6).CreatePivotTable TableDestination:="Tabelle1!R3C1", TableName:= _
"PivotTable1", DefaultVersion:=6
ActiveWorkbook.Sheets("Tabelle1").Select
Vielleicht habt ihr eine Idee.. danke.
LG
|