Office: Tabelle entfernen (Listobjekt)

Hallo Experten,

mit Hilfe des Markorekorders habe ich den Code um eine Tabelle über meine Daten zu legen:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$B$8"), , xlYes).Name = "DataSource"

Wie kann ich diese Tabelle "DataSource" wieder in einen gewöhnlichen Bereich umwandeln?

Hintergrund ist: Ich lasse über ein Makro eine Jahresplanung berechnen, die Daten werden in ein Register mit einer Tabelle geschrieben.
Bei aktiver Tabelle braucht das Makro 10-15 min. ohne die Tabelle 2-4 min.
Auf schwächeren Rechnern meiner Kollegen gerne auch das 1,5 - 2 fache der Zeit.

Ich möchte jetzt im Makro die Tabellenstruktur entfernen, dann die Berechnung laufen lassen und danach die Tabelle wieder erzeugen, damit die Auswertungen (Pivots) weiterhin funktionieren.

Hat jemand einen Tipp für mich?

Vielen Dank.
Michael

:)

 

Hallo Micheal,

vom Prinzip her, geht das so.

Sub Michael()
Dim rng As Range, strTablename As String

strTablename = "DataSource"

With Tabelle1
Set rng = .ListObjects(strTablename).Range
.ListObjects(strTablename).Unlist

'Dein Code

.ListObjects.Add(xlSrcRange, rng, , xlYes).Name = strTablename
End With


End Sub


Gruß Sepp

 

Hallo Sepp,

danke für die Hilfe.
Leider bekomme ich bei der Codezeile

Set rng = .ListObjects(strTablename).Range

einen Laufzeitfehler 9 Index ausserhalb des gültigen Bereiches.

Das Listobjekt befindet sich auf Tabelle1, von daher finde ich jetzt nicht direkt den Fehler.

Kannst Du mir hier noch kurz helfen?

Gruß
Michael

 

Hallo Micheal,

dann stimmt entweder der Code-Name der Tabelle nicht, oder der Name der Datentabelle!

Wenn es immer für die Aktive Tabelle gelten soll und immer nur ein Tabellenobjekt in der Tabelle ist, dann so.

Sub Michael()
Dim rng As Range, strTablename As String

With ActiveSheet
Set rng = .ListObjects(1).Range
strTablename = .ListObjects(1).Name
.ListObjects(1).Unlist

'Dein Code

.ListObjects.Add(xlSrcRange, rng, , xlYes).Name = strTablename
End With


End Sub


Gruß Sepp

 

Hallo Sepp,

vielen Dank.
Jetzt funktioniert es.
Der Fehler sitzt zwischen Stuhl und Tastatur...

Viele Grüße
Michael

 

Setz dich das nächste mal besser auf den Stuhl...