bei meinem Makro bekomm ich folgende Fehlermeldung:
Die PivotItems-Eigenschaft des PivotField-Objekts kann nicht zugeordnet werden:
Sub LinksFaelligkeit()
Dim rngFind As Range
Dim LCount As Long
Dim strNeuerLink As String
Application.EnableEvents = False
Application.ScreenUpdating = False
With Sheets("Pivot")
LCount = Application.WorksheetFunction.CountIf(.UsedRange, "http*")
For LCount = 1 To LCount
If rngFind Is Nothing Then
Set rngFind = .UsedRange.Find("http*", , xlFormulas, xlPart, xlByRows, xlNext, False, _
False)
Else
Set rngFind = .UsedRange.FindNext(rngFind)
End If
If Not rngFind Is Nothing Then
strNeuerLink = Replace(rngFind.Text, Str_Die_Ersten, "")
.PivotTables("PivotTable1").PivotFields("Link").PivotItems( _
rngFind.Text).Caption = _
strNeuerLink
rngFind.Hyperlinks.Add rngFind, strNeuerLink, , , strNeuerLink
End If
Next LCount
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Excel markiert diesen Bereich des Codes:.PivotTables("PivotTable1").PivotFields("Link").PivotItems( _
rngFind.Text).Caption = _
strNeuerLink
Meine PivotTable ist im Tabllenblatt "Pivot" und das betreffende Feld heißt "Link"
Jemand eine Idee?