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
|