Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zum permanten Deaktivieren einer PivotTable-Option
 16.07.2015 15:21:58 Tom
NotSolved

Ansicht des Beitrags:
Von:
Tom 		Datum:
16.07.2015 15:21:58		 Views:
1524		 Rating:
     
Antwort:
  Ja
Thema:
Makro zum permanten Deaktivieren einer PivotTable-Option

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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zum permanten Deaktivieren einer PivotTable-Option
 16.07.2015 15:21:58 Tom
NotSolved