Hallo zusammen,
ich habe 50 Tabellenblätter, davon sind nur Blatt 4 und 5 sichtbar. Alle anderen sind per VBA ausgeblendet.
Im Projekt-Ordner sind die Blätter wie folgt aufgelistet:
Tabelle00 (xxx)
Tabelle01 (xxy)
Tabelle02 (xyz)......usw.
Nun mein Problem:
von Tabelle06 bis zum Schluss, soll er nachfolgendes Makro ausführen, wenn
If ActiveWorkbook.Sheets("Tabelle02").Range("L10") = 7 'Ergebnis' Then
Exit Sub
Else
'das soll er dann von Tabelle06 bis zum Ende nacheinander machen
Range("A3").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J3")
Range("A4").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J4")
Range("A5").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J5")
Range("A6").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J6")
Range("A7").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J7")
Range("A8").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J8")
Range("A9").PivotCell.PivotField.Caption = ActiveWorkbook.Sheets("Tabelle02").Range("J9")
End If
Ich bin nur Anfänger in VBA und komme einfach nicht weiter...
vielen Dank im vorraus!
|