VBA: dyn. Quelldatenbereich für Pivot

Hallo,
ein Makro wird regelmäßig ausgeführt. Es soll eine Pivottabelle erstellt werden. Der Quelldatenbereich ist nicht fix, sondern flexibel. Insb. ändert sich immer die Zeilenanzahl des Quelldatenbereichs.
Unter dem Quelldatenbereich (mit einigen Leerzeilen Abstand) befinden sich weitere Daten, die nicht in die Pivot einfließen sollen.
Durch Aufzeichnen mit dem Makro-Recorder wird der Quelldatenbereich hart definiert. Ich schaffe es nicht, den Datenbereich flexibel zu definieren.
Vielen Dank für Eure Hilfe!
Das ist der aktuelle Code:


Sub Pivot_dyn_Quelldatenbereich()
' Pivot_dyn_Quelldatenbereich Makro
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Quelldaten dynamisch!R2C1:R6C4", Version:=8).CreatePivotTable _
TableDestination:="Tabelle1!R3C1", TableName:="PivotTable1", _
DefaultVersion:=8
Sheets("Tabelle1").Select
Cells(3, 1).Select
End Sub

Im Folgenden mein fehlgeschlagener Versuch, den Quellbereich flexibel zu definieren, insb. die Zeilen:


Sub Pivot_dyn_Quelldatenbereich()
' Definition Variable
Dim Zeilenzahl As Integer
Range("a2").Select
Zeilenzahl = Selection.CurrentRegion.Rows.Count
' Pivot_dyn_Quelldatenbereich Makro
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Quelldaten dynamisch!R2C1:R"&Zeilenzahl&"C4", Version:=8).CreatePivotTable _
TableDestination:="Tabelle1!R3C1", TableName:="PivotTable1", _
DefaultVersion:=8
Sheets("Tabelle1").Select
Cells(3, 1).Select
End Sub

https://www.herber.de/bbs/user/153384.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Pivot_dyn_Quelldatenbereich() ThisWorkbook.Names("MeinBereich").RefersToR1C1 = "='Quelldaten dynamisch'!R2C1:" & _ Worksheets("Quelldaten dynamisch").Range("A2").End(xlToRight).End(xlDown).Address(1, 1, xlR1C1) ThisWorkbook.RefreshAll End Sub

Sub aaaa() Dim strSheet As String, lLastRow As Long lLastRow = Sheets("Quelldaten dynamisch").Range("A2").CurrentRegion.Rows.Count + 1 strSheet = Sheets.Add.Name ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Quelldaten dynamisch!R2C1:R" & lLastRow & "C4", Version:=7).CreatePivotTable _ TableDestination:=strSheet & "!R3C1", TableName:="PivotTable2", _ DefaultVersion:=7 Application.Goto Sheets(strSheet).Range("A3") End Sub

Beliebteste Forumthreads (12 Monate)

VBA: dyn. Quelldatenbereich für Pivot

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread