Liebe Mitglieder, der Code funktioniert nicht, leider kenn ich mich nicht so gut aus in VBA um den Fehler zu beheben: VBA mault bei "Sheets....
Danke für die Unterstützung
Sub Hyperl()
Dim i As Long
For i = 4 To ThisWorkbook.Worksheets.Count
Sheets(i).Hyperlinks.Add anchor:=Cells(1, 13), _
Address:="", Subadress:="'PivotTabelle'!A1", _
TextToDisplay:="Link zu Pivot"
Next i
End Sub