Hallo Leute, folgendes Problem: Beim Arbeiten mit PivotTabellen in Excel passen sich Spaltenbreiten beim Aktualisieren immer wieder an. Lösung: In den Pivot-Optionen das Häkchen bei "Spaltenbreiten bei Aktualisierung automatisch anpassen" entfernen. Leider kann man dieses Häkchen nicht für immer entfernen, quasi als Standard oder Vorlage. Deshalb habe ich ein Makro entwickelt, welches als AddIn die Häkchen aller Pivots beim Start der Datei automatisch entfernt.

Option Explicit

Private Sub auto_open()

Application.OnTime Now + TimeValue("00:00:01"), "Verzögerung"

End Sub

 Sub Verzögerung()

Application.ScreenUpdating = False

Dim pt              As PivotTable

Dim ws              As Worksheet

Dim ws_count As Integer

Dim i As Integer

ws_count = ActiveWorkbook.Worksheets.Count

For i = 1 To ws_count

Worksheets(i).Activate

Set ws = ActiveSheet

If ws.PivotTables.Count > 0 Then

      For Each pt In ActiveSheet.PivotTables

         pt.HasAutoFormat = False

      Next pt

   Else

   End If

   Next i

Worksheets(1).Activate

End Sub

Funktioniert auch einwandfrei. Jetzt hab ich folgendes Problem: Ich möchte, dass der Haken entfernt wird sobald man eine neue Pivot einfügt. Habe keine Ahnung wie man sowas in einem Makro darstellt. Falls dies nicht möglich ist, wäre der zweite Ansatz, dass Makro zu starten sobald ein neues Worksheet eingefügt wird.

Bitte um Hilfe, bin absolute VBA-Null ;)

LG Tom