Freelance Project Requests info@CodeDocu.de Software Development in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Download:

Datei 1: demo_03_TabellenBereich.xlsm

Wie kann man den gesamten Bereich eines Excel Blattes in eine aktive Tabelle umwandeln

Mit einem vba Code möchte ich automatisch ein Excel Dokument, das eine große Datensammlung aufweist,
in eine interen Excel-Tabelle umwandeln, die anschliessend besser bearbeitet werden kann.

In vba wird hierzu unter ListObjects ein Tabellenname hinterlegt für den Bereich

objSheet.ListObjects.Add(xlSrcRange, actRange, , xlYes).Name = "Tabelle1"



Der Bereich wird durch den vba Code automatisch in eine Excel Tabelle umgewandelt.
Diese kann dann leichter gefiltert und sortiert werden.

Die Darstellung wird mit .TableStyle zugewiesen
.ListObjects("Tabelle1").TableStyle = "TableStyleMedium5"




Sub fg_Bereich_In_Tabelle_umwandel()

'----------< fg_Bereich_In_Tabelle_umwandel() >----------

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"

'----------</ fg_Bereich_In_Tabelle_umwandel() >----------

End Sub


Mobile
»
Excel: REwrite RTF to HTML
»
Excel: Convert numbers, date and time to text
»
Excel: Convert letters to Ascii numbers around
»
Excel File Dialog for Selecting File-Paths to Worksheet
»
Excel Template: Automatically send an e-mail for a specific entry in Excel
»
Excel vba: recognize an input in cells
»
Excel, vba: insert image into a cell of cache
»
Excel: Formelfelder per Code kopieren
»
Excel Adressen in vba verwenden
»
Spalte in Excel per vba code als Nummer löschen

.

Contact for Jobs, Project Requests: raimund.popp@microsoft-programmierer.de