Hallo,
benötige dringend Hilfe. Komme mit meinen VBA-Kenntnissen nicht mehr weiter. Die nachfolgende Funktion läuft auf meinem Rechner ohne Problem. Auf einem anderen Rechner läuft die Funktion nicht. Beim Erzeugen des Cadhe bekomme ist als Fehlermeldung eine Typenunverträglichkeit. Woran kann das liegen?
Nachfolgend das Makro:.
Function CreatePivotTable(ByRef srcData As Range) As PivotTable
Dim thisPivot As PivotTable
Dim dataSheet As Worksheet
Dim ptSheet As Worksheet
Dim ptCache As PivotCache
Set ptCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=srcData)
Set ptSheet = ThisWorkbook.Sheets.Add
Set thisPivot = ptCache.CreatePivotTable(TableDestination:=ptSheet.Range("A5"))
Set CreatePivotTable = thisPivot
End Function
|