Excel VBA - Ændre datakilde

Hvis der kun er de to valgmuligheder, kan du bruge en simpel "if sætning" Som eksempelvis

Range A1 har jeg bare sat som det sted, hvor du får info om, hvorvidt der er 69 eller 71 rækker.

Sourcedata skal ændres, så den passer med dine række/kolonne specifikationer og placering - selvfølgelig skal du også ændre pivottabellens navn.


If Range("A1").Value = 69 Then

ActiveSheet.PivotTables("Pivottabel1").ChangePivotCache ActiveWorkbook. _PivotCaches.Create(SourceType:=xlDatabase,
SourceData:="Ark1!R6C4:R8C7", _
Version:=xlPivotTableVersion12)

Else
ActiveSheet.PivotTables("Pivottabel1").ChangePivotCache ActiveWorkbook. _PivotCaches.Create(SourceType:=xlDatabase,
SourceData:="Ark1!R6C4:R9C7", _
        Version:=xlPivotTableVersion12)

End If

Jeg ved ikke om det kan bruges men i mangle på andre svar, så er det da en mulighed :-)

jean01ad, jeg havde ikke fået det til at virke uden din hjælp - tak ... Så jeg vil meget gerne have et svar

Min løsning kom til at se således ud (det kan godt være at jeg har taget varible med som ikke bliver brugt).

Dim Wbook As Workbook  ' Workbook (Regnearkets navn)
Dim Ark1 As Worksheet
Dim Wsheetdata As Worksheet ' Worksheet ("sheet1")
Dim Wsheetx As Worksheet ' Worksheet ("variable")
Dim Pivottabel1 As PivotTable
Dim PivotCache1 As PivotCache
Dim PivotRange As Range
Dim G As Integer
Dim H

' Definere Workbook og sætte den til active
Set Wbook = Workbooks("PL Stat v  0.99.xls")
Wbook.Activate

' Definere Worksheets
Set Ark1 = Worksheets("Ark1")
Set Wsheetdata = Worksheets("Beregningsark")

G = Wsheetdata.Range("A1").CurrentRegion.Rows.count - 1
Set PivotRange = Range("A1:S" & G)
Ark1.Activate
Set Pivottabel1 = ActiveSheet.PivotTables(1)
Set PivotCache1 = Pivottabel1.PivotCache
H = Wsheetdata.Name & "!" & Application.ConvertFormula(PivotRange.Address, xlA1, xlR1C1)

ActiveSheet.PivotTables(1).ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=H)

ok - er glad for at høre, at du fik det til at virke.