PDA

Vollständige Version anzeigen : PivotChart via Vba konfigurieren


maaanuuueeel
11.05.2011, 16:01
Hallo,

ich bins mal wieder. Nach langen zeitaufwendigen Versuchen ohne Ergebnis, brauche ich Hilfe.


Private Sub Befehl2_Click()
Dim sql As String
sql = "exec dbo.pr_test 'F005' ,2008 ,0 ,0 ,1"
Form_Formular3.Form.RecordSource = sql

Dim i As Integer
Dim ptConstants As Object
Dim totNeueSumme As Object
Dim pt As Object
Set pt = Me.Formular3.Form.PivotTable
Set ptConstants = pt.Constants
pt.AllowPropertyToolbox = False

pt.AllowDetails = False

With pt.ActiveView
.TitleBar.Visible = False

For i = (.DataAxis.FieldSets.Count - 1) To 0 Step -1
.DataAxis.RemoveFieldSet (i)
Next i

For i = (.Totals.Count - 1) To 0 Step -1
.DeleteTotal (i)
Next i

For i = (.ColumnAxis.FieldSets.Count - 1) To 0 Step -1
.ColumnAxis.RemoveFieldSet (i)
Next i

For i = (.RowAxis.FieldSets.Count - 1) To 0 Step -1
.RowAxis.RemoveFieldSet (i)
Next i

For i = (.FilterAxis.FieldSets.Count - 1) To 0 Step -1
.FilterAxis.RemoveFieldSet (i)
Next i

.RowAxis.InsertFieldSet .FieldSets(1)
.ColumnAxis.InsertFieldSet .FieldSets(2)

' Set Summe = .AddTotal("Summe", .FieldSets(2).Fields(0), plFunctionSum)
' .DataAxis.InsertTotal Summe
.DataAxis.InsertFieldSet .FieldSets(0)
End With

End Sub


so das ist mein Code, aber es wird einfach die Datenachse nicht eingefügt im Formular. Ich hab keine Ahnung woran es liegen könnte. ICh kann sie manuell hineinziehen, die richtigen Werte werden auch angezeigt.

Gruß

Manuel

Scorefun
11.05.2011, 18:37
Solche Sachen würde ich in Excel mit dem Macro-Rekorder aufzeichnen; dann sieht man am besten, was wie passiert...