Moin @All

Habe ein Makro das mir eine Intranet Seite geparst hatte.
Was auch gut lief, bis Microsoft 365 (Office) 64bit kam.

 Range("A1").Select
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;https://xxx/xxx/xxx/xxx/xxx.php?Jahr=" & xJahr & "&AUFTRAGNR=&X1=" & P & "&Xcounter=1&Start=Ausf%C3%BChren" _
    , Destination:=Range("$A$1"))
    .Name = _
    "xxx.php?Jahr=" & xJahr & "&AUFTRAGNR=&X1=" & P & "&pincounter=1&Start=Ausf%C3%BChren_1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False

Das ist nur der Teil des Parsen.

Kann mir jemand dabei Helfen?