Hej,

Nedan ser ni min kod, problemet jag har är att uppdateringen av pivottabellerna görs innan all data hämtats.

Jag vill att pivot1 ska uppdateras först efter att OLEDBConnection har hämtat all data klart, och efter att pivot 1 har uppdaterats klart ska pivot 2 uppdateras.

Någon som har något bra förslag på hur jag ska lösa det? :-)


Sub refresh()

With ActiveWorkbook.Connections("XXXXXXX").OLEDBConnection
.CommandText = "select * from XXX.dbo.XXXXXXX where XXXXXXX between '" & Range("A1").Value & "' and '" & Range("A2").Value & "'"
End With
ActiveWorkbook.Connections("XXXXXXX").refresh

Sheets("Pivot 1").Select
ActiveSheet.PivotTables("Pivottabell1").PivotCache.refresh

Sheets("Pivot 2").Select
ActiveSheet.PivotTables("Pivottabell2").PivotCache.refresh

End Sub

Hej, vad händer om du tar bort kommandon som är refresh och kör dessa i annan ordning lite senare?

/Pelle