Listobject
17.08.2016 10:21:21
Klaus
ich suche nun schon länger in diesem und auch anderen Foren und finde leider keine Lösung meines Problems.
Ich zeichne fast immer die Macros auf, passe sie den Bedürfnissen an und habe mir auf diese Weise bisher immer helfen können. Nun schlägt mir EXCEL jedoch ein "Schnippchen".
Hier das Problem:
In der Tabelle (sie ist immer gleich aufgebaut)wurden Daten in einem Listenbereich zusammengefasst. Dies kann ich zwar manuell über:
Tabellentools in der Gruppe Tools mit "in Bereich konvertieren" aufheben, jedoch schaffe ich es nicht dies mittels Makro zu bewerkstelligen.
Der Recorder zeichnet dabei absolut "nichts" auf.
Ich habe ne Menge Hilfen dazu gefunden im Sheet einen Listenbereich zu erstellen aber nicht einen Weg diesen wieder Rückgängig (einfache Tabelle) zu machen.
Die Befehle listobject.ShowAutoFilter = False oder =True setzen ja nur den Autofilter aber beeinflussen nicht den Bereich. listobject.delete oder remove gehen auch nicht.
Hier ein Code den ich gefunden habe, dessen Ergebnis ich eigentlich umkehren möchte
Dim objSheet As Worksheet
Set objSheet = ActiveSheet
Dim actRange As Range
Set actRange = objSheet.UsedRange
objSheet.ListObjects.Add(xlSrcRange, actRange, , xlYes).Name = "Tabelle1"
Range("Tabelle1[#All]").Select
ActiveSheet.ListObjects("Tabelle1").TableStyle = "TableStyleMedium5"
Die Farben der Zellen/Zeilen oder Spaltenbreite nach dem "umkehren" spielen für das Ergebnis keine Rolle.
Danke schon mal für Eure Mühe und entschuldigt bitte wenn ich vielleicht zu umständlich geschrieben habe.
Gruß Klaus