Fehler Application.ScreenUpdating
Fred
ich habe ein Problem mit dem "Application.ScreenUpdating"-Befehl. Ich dachte immer, dass man, wenn man seinen Code in Application.ScreenUpdatinge = False .... = True einbettet, nicht sieht, wenn man z.B. Sheets selektiert etc. Leider funktioniert dies bei mir im folgenden Fall nicht.
Application.ScreenUpdating = False
pivotsheet.Select
Cells.Select
Selection.Delete Shift:=xlUp
datasheet.Select
'Anmerkung: Z1S1 Bezugsart muss "unchecked" sein (nicht klar, warum!?)
With Application
.ReferenceStyle = xlA1
End With
pivottablename = "MonitorPivot"
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, sourcedata:= _
datasheet.Range(Cells(1, 1), Cells(verylastrow, verylastcol))).CreatePivotTable TableDestination:= _
pivotsheet.Cells(1, 1), TableName _
:=pivottablename, DefaultVersion:=xlPivotTableVersion10
Application.ScreenUpdating = True
Der Code ist natürlich eigentlich viel länger, das Problem taucht aber nur im angegebenen Bereich auf. Normalerweise arbeite ich auch nicht mit Select, jedoch funktioniert das Erstellen der Pivottabelle irgendwie nur, sofern man das DatenSheet vorher selektiert.
Kann mir irgendjmd helfen?
Vielen Dank
Fred