WBA, stop makro hvis opdatering fejler
Hej eksperterJeg har en makro som opdatere en pivottabel, til en ekstern data forbindelse.
Her ud over skriver den det aktuelle tidspunkt for opdateringen i celle "C3".
Ind i mellem sker det dog at der ikke er forbindelse til den eksterne data kube, som pivottabellen forsøger at opdatere til. I det tilfælde kommer den naturligvis med en fejl om at der ikke forbindelse til kuben, hvor til man trykker "Annuller".
Problemet er at min makro her efter fortsætter med at kører, og dermed opdatere tidspunktet for opdatering i celle "C3", uden at pivottabellen realt set er blevet opdateret.
Er der nogen der har en løsning på en kode der kan afbryde makroen i at fortsætte, hvis den fejler ved opdateringen?
Jeg har anvendt nedestående makro:
Sub Opdater()
'
' Opdater Makro
'
ActiveWorkbook.RefreshAll
Sheets("Samlet").Select
Range("C3").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.AutoFilter.ApplyFilter
End Sub
På forhånd mange tak for hjælpen :-)