Ich möchte per Makro für ein pt mittels Öffnen-Methode eine andere Excel-Datei (mit Bereich "data") als Datenquelle zuordnen. Mit dem ua VBA-Code sind die Datentypen nicht verträglich.
Bitte und Danke. lg.
Sub OPEN_PROGNOSE()
Dim Fname As Variant
Dim srcdata As String
' Change drive/directory to MyPath.
ChDrive MyPath
ChDir MyPath
' Open GetOpenFilename with the file filters.
Fname = Application.GetOpenFilename( _
Title:="MB Daten aus Segmentbericht auswählen:", _
MultiSelect:=True)
srcdata = CStr(Fname) & "!data"
' Pivotquelle ändern
ActiveSheet.PivotTables("MBDATA").ChangePivotCache ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, SourceData:=srcdata, Version:=xlPivotTableVersion14)
End Sub