Hallo Zusammen,
ich würde gerne Daten, die ich aus einer Arbeitsmappe in eine andere Arbeitsmappe kopiert habe per Knopfdruck in eine "Tabelle" formatieren um aus dieser später eine Pivottabelle zu erstellen.
Habe im Internet hierzu zwei mögliche Codeschnipsel gefunden und diese versucht in meinen Code zu integrieren. (Muss dazu sagen, dass ich eher Excel-VBA Anfänger bin).
Im Anhang findet ihr die beiden Codes und die Fehlermeldung die ich daraus bekomme.
Kann mir jemand bei der Lösung helfen?
Als Fehlerquelle markiert mir VBA jeweils den Bereich:
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$M$864"), , xlYes).Name = _
"Tabelle1"
bzw.
Sheets("GJA").ListObjects.Add(xlSrcRange, Range("A2:X" & Cells(1, 1).End(xlDown).Row), , xlNo).Name=_
"Tabelle1"
Vielen Dank im Voraus.
ich würde gerne Daten, die ich aus einer Arbeitsmappe in eine andere Arbeitsmappe kopiert habe per Knopfdruck in eine "Tabelle" formatieren um aus dieser später eine Pivottabelle zu erstellen.
Habe im Internet hierzu zwei mögliche Codeschnipsel gefunden und diese versucht in meinen Code zu integrieren. (Muss dazu sagen, dass ich eher Excel-VBA Anfänger bin).
Im Anhang findet ihr die beiden Codes und die Fehlermeldung die ich daraus bekomme.
Kann mir jemand bei der Lösung helfen?
Als Fehlerquelle markiert mir VBA jeweils den Bereich:
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$M$864"), , xlYes).Name = _
"Tabelle1"
bzw.
Sheets("GJA").ListObjects.Add(xlSrcRange, Range("A2:X" & Cells(1, 1).End(xlDown).Row), , xlNo).Name=_
"Tabelle1"
Vielen Dank im Voraus.