Thema Datum  Von Nutzer Rating
Antwort
Rot Wiedergegebene Tabellenformatierung unterscheidet sich von Makroaufzeichnung
 22.06.2020 19:32:17 Lisa1978
NotSolved

Ansicht des Beitrags:
Von:
Lisa1978		 Datum:
22.06.2020 19:32:17		 Views:
1062		 Rating:
     
Antwort:
  Ja
Thema:
Wiedergegebene Tabellenformatierung unterscheidet sich von Makroaufzeichnung

Ich arbeite mich gerade in VBA ein und wollte ein Makro für eine Tabellenpivotierung aufzeichnen. Die Tabelle enthält Filter, welche untereinander stehen. Bei der Wiedergabe des Makros stehen die Filter dann aber nebeneinander, also in derselben Zeile - sie sollten aber untereinander in derselben Spalte sein. Hat jemand eine Lösung? 

Den Befehl ".AllowMultipleFilters = False" habe ich in ".AllowMultipleFilters = True" umgewandelt, ohne dass sich etwas geändert hat.

Sub Makro10()

'

?
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
' Makro10 Makro
'
 
'
    Application.CutCopyMode = False
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Datensatz!R1C1:R1048576C61", Version:=6).CreatePivotTable TableDestination _
        :="Tabellenband_erstellen!R5C2", TableName:="PivotTable18", DefaultVersion _
        :=6
    Sheets("Tabellenband_erstellen").Select
    Cells(5, 2).Select
    With ActiveSheet.PivotTables("PivotTable18")
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = True
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = False
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = False
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = False
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlCompactRow
    End With
    With ActiveSheet.PivotTables("PivotTable18").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables("PivotTable18").RepeatAllLabels xlRepeatLabels
    ActiveSheet.PivotTables("PivotTable18").AddDataField ActiveSheet.PivotTables( _
        "PivotTable18").PivotFields("AnalyseID"), "Summe von AnalyseID", xlSum
    ActiveSheet.PivotTables("PivotTable18").AddDataField ActiveSheet.PivotTables( _
        "PivotTable18").PivotFields("AnalyseID"), "Summe von AnalyseID2", xlSum
    With ActiveSheet.PivotTables("PivotTable18").PivotFields("Datum_year")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable18").PivotFields("Datum_month")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable18").PivotFields( _
        "regional/überregional")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable18").PivotFields("Summe von AnalyseID")
        .Caption = "Anzahl von AnalyseID"
        .Function = xlCount
    End With
    With ActiveSheet.PivotTables("PivotTable18").PivotFields("Summe von AnalyseID2" _
        )
        .Caption = "Anzahl von AnalyseID2"
        .Function = xlCount
        .Calculation = xlPercentOfColumn
        .NumberFormat = "0,00%"
    End With
    With ActiveSheet.PivotTables("PivotTable18").PivotFields("Mehrfachkodierung")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Mehrfachkodierung"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Mehrfachkodierung"). _
        CurrentPage = "1"
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Datum_month"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Datum_month").CurrentPage _
        = "5"
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Datum_year"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Datum_year").CurrentPage _
        = "2020"
End Sub

 

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 Wiedergegebene Tabellenformatierung unterscheidet sich von Makroaufzeichnung
 22.06.2020 19:32:17 Lisa1978
NotSolved