ich habe den code von "Gast86583",  mal ausprobiert, so wie er geschrieben ist,  fängt er ja damit auf (Tabelle00) an, da kann er aber den Code:

Range("A3").PivotCell.PivotField.Caption = Sheets("Tabelle02").Range("J3")
Range("A4").PivotCell.PivotField.Caption = Sheets("Tabelle02").Range("J4")
Range("A5").PivotCell.PivotField.Caption = Sheets("Tabelle02").Range("J5")
Range("A6").PivotCell.PivotField.Caption = Sheets("Tabelle02").Range("J6")
Range("A7").PivotCell.PivotField.Caption = Sheets("Tabelle02").Range("J7")
Range("A8").PivotCell.PivotField.Caption = Sheets("Tabelle02").Range("J8")
Range("A9").PivotCell.PivotField.Caption = Sheets("Tabelle02").Range("J9")

nicht ausführen, da es da keine Pivot-Tabelle gibt, die gibt es erst ab Tabelle06.

(zur Erklärung des oben genannten codes:

Wenn ich den code auf einem Tabellenblatt (z.B. Tabelle06) laufen lasse, ändert er mir den PivotFeld-Namen der Zelle A3 in den Namen, der auf Tabellenblatt (Tabelle02) in der Zelle J3 steht..... dann die nächste zeile des Codes, PivotFeld-Name A4 in den Namen der Tabelle02 in Zelle J4 ändern.... usw.)

Ich versuche mit meinen Worten mal die Aufgabe zu beschreiben:

Also wenn im Tabellenblatt (Tabelle02) in der Zelle L10 die Zahl 7 steht, soll nichts gemacht werden..... (die Zahl 7 ergibt sich aus einer Formel)

Wenn aber in dieser zelle eine ander Zahl steht, dann soll er ab Tabellenblatt (Tabelle06, dann Tabelle07, usw....) bis zum letzen Tabellenblatt den oben genannten code je Tabellenblatt ausführen.

Die Tabellenblätter (Tabelle06 bis zum Ende) sind dabei per VBA ausgeblendet und das ganze soll im Hintergrund dann laufen.

Bitte helft mir, ich habe schon Google ohne Ende gefragt, sitze seit Tagen daran, das umzusetzen, komme aber nicht weiter.

Vielen Dank an alle die helfen können und wollen!

Gruß Marci