Schlagwort: ListObjects

My wife asked me why I was talking so softly in the house, I told her I was afraid that Mark Zuckerberg would hear me! She laughed, I laughed, Alexa laughed, Siri laughed and Cortana laughed (James Franco)

Makrorekorder

Merkwürdig. Ich importiere per VBA Daten aus anderen Tabellen in eine Arbeitsmappe. Die Daten der Importtabelle sind als intelligente Tabelle gespeichert, in der aktuellen Tabelle liegt auch eine intelligente Tabelle. Damit sich diese beiden Tabellen nicht überlagern, ist es wohl das Beste die Tabelle zu löschen. Aber wie heißt der Befehl „In Bereich konvertieren“?

Nun – der Makrorekorder hilft:

Sub ZurueckZuDummerTabelle()
'
' ZurueckZuDummerTabelle Makro
'

'
    
End Sub

Nein – der Makrorekorder hilft nicht! Er zeichnet nur den Befehl auf: lösche das Tabellenformat. Aber nicht: lösche die Tabelle. Also muss ich doch auf die Suche gehen. Ich werde schnell fündig: die Methode heißt Unlist. Damit klappt es:

                For j = 1 To xlBlatt.ListObjects.Count
                    xlBlatt.ListObjects(j).TableStyle = ""
                    ' -- lösche die Formtierung
                    xlBlatt.ListObjects(j).Unlist
                    ' -- in Bereich (zurück) konvertieren
                Next j

Warum nicht gleich?

Kommentar hinterlassen , , ,