datenbereich in pivottabelle variabel
15.10.2002 14:43:46
kiepetz rudolf
wie kann ich den datenbereich einer pivot-tabelle mittels vba variabel gestalten.
ich möchte dazu die letzte zeile des datenbereichs auslesen und als datenbereich in einer vorhandenen pivottabelle eintragen.
anbei mein code der jedoch nicht funktioniert:
Sub pivot_bereich()
Dim lz%
Dim tb1 As Worksheet
Dim tb2 As Worksheet
Set tb1 = Worksheets("Namensliste")
Set tb2 = Worksheets("pcro_02")
lz = tb2.Cells(Rows.Count, 1).End(xlUp).Row
tb1.PivotTableWizard xlDatabase, tb2.Range(Cells(1, 1), Cells(lz, 21))
End Sub
herzlichen dank für eure hilfe !!
kiepetz rudolf