Microsoft Excel

Herbers Excel/VBA-Archiv

Fehlermeldung Makro - Laufzeitfehler | Herbers Excel-Forum


Betrifft: Fehlermeldung Makro - Laufzeitfehler von: Julia Schmidt
Geschrieben am: 16.12.2009 10:31:18

Hallo,

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?

  

Betrifft: AW: Fehlermeldung Makro - Laufzeitfehler von: Luschi
Geschrieben am: 16.12.2009 10:50:49

Hallo Julia,

in der Excel-Vba-Hilfe steht:
Gibt ein Objekt zurück, das ein einzelnes PivotTable-Element darstellt (ein PivotItem-Objekt) oder eine Auflistung aller ein- und ausgeblendeten Elemente des angegebenen Feldes (ein PivotItems-Objekt). Schreibgeschützt.

Daraus folgt, daß man die Beschreibung (Caption) nicht ändern kann.

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Fehlermeldung Makro - Laufzeitfehler von: Julia Schmidt
Geschrieben am: 16.12.2009 11:17:53

Aber das Makro hat über 6 Monate reibungslos fuktioniert
Deshalb wundert micht das


Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung Makro - Laufzeitfehler"