range per Variable and pivot übergeben
24.04.2014 13:15:46
Peter
ich möchte aus einer Tabelle per VBA eine Pivot erstellen.
Da sich die größe der Quelldaten-Tabelle aber ändert, wäre es schön, den Part R1C1:R116C6 in
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Zieltabelle!R1C1:R116C6", ...
durch eine Variable z.b. rngBereich zu ersetzen. Alle Codeschnipsel stehen in der selben 'SUB'.
Ich hatte mir die Ermittlung des Bereichs so vorgestellt:
Sub Bereich()
Dim ls As Long, lz As Long, rngBereich As Range
With Sheets("Zieltabelle")
lz = .Cells(.Rows.Count, 1).End(xlUp).Row
ls = .Cells(lz, .Columns.Count).End(xlToLeft).Column
MsgBox ("letze Zeile ist:" & lz)
MsgBox ("letze Spalte ist:" & ls)
rngBereich = .Range(Cells(1, 1), .Cells(lz, ls))
End With
End Sub
rngBereich = .Range(Cells(1, 1), .Cells(lz, ls))
steigt das Programm immer mit einer Fehlermeldung aus.
Wo liegen meine Fehler?