Opdater pivot ud fra valg i combobox

Hej faithless

Hvad sker der, hvis du fjerner "Set" foran valg i 3. linie ?

mvh Nicolai

Hej faithless


Nu er jeg ikke den store Pivot-Haj!, men er der ikke også lidt kludder med de enkelte dataværdier ??

Du tildeler valg (som er en steng) en value-værdi ??

Hva´ hvis du ændrer din kode til:

Sub DropDown2_Change()

Dim valg As String

Set valg = DropDown2.text

Sheets("Data").PivotTables("PivotTable1").PivotFields("Category").CurrentPage = valg

End Sub 


eller ændrer linie 2 til en anden dataværdi end string ?


mvh Nicolai

Få en run-time error '424' Object required og debug stopper på denne linie valg = DropDown2.Text

Hej faithless

Har du fjernet "Set" foran valg i 3. linie ?

mvh Nicolai

Hejsa

Jeg løste det på en anden måde. Men smid et svar så får du point og tak for indsatsen.

Mvh
Thomas

Hej faithless

Svar :o)

Hvordan løst du "problemet" ?


mvh Nicolai

Under egenskaber på comboboxen kan man vælge at få en værdi i en celle. Her returnere den et nummer, som jeg så kan konvertere til en tekst ud fra den liste som bruges til comboboxen. Herefter valgte jeg bare at læse den tekst ind i en variable og opdatere pivotens page filter med den.

Hej faithless

Jeg takker for point og info :o)

mvh Nicolai