08.01.2020, 13:33
Hallo,
zuerst möchte ich mitteilen das ich erst heute mich mit VBA beschäftige.
Das Ziel ist es eine Tabelle zu erstellen mit unbekannter Zeilenzahl.
Die Datensätze befinden sich immer ab der Zelle A3 bis AT.
Mit folgendem Makro wird jedoch eine Tabelle über AT hinaus erstellt.
Wie ich vermute herauszulesen fehlt es die Letzte Spalte anzugeben jedoch wüsste ich nicht wie ich das hier jetzt lösen kann.
Wäre dankbar wenn mir jemand dabei helfen könnte und im voraus schon mal vielen Dank.
Sub A_SelectAllMakeTable()
Dim tbl As ListObject
Dim rng As Range
Set rng = Range(Range("A3"), Range("A3").SpecialCells(xlLastCell))
Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes)
tbl.TableStyle = "TableStyleMedium3"
End Sub
PS: Falls möglich hab ich gelesen das es zu nutzen ist wenn ein Error failure eingebaut wird falls die Tabelle nicht erstellt wird.
Aus dem Forum "Tabellentools" hierher verschoben
Moderator
zuerst möchte ich mitteilen das ich erst heute mich mit VBA beschäftige.
Das Ziel ist es eine Tabelle zu erstellen mit unbekannter Zeilenzahl.
Die Datensätze befinden sich immer ab der Zelle A3 bis AT.
Mit folgendem Makro wird jedoch eine Tabelle über AT hinaus erstellt.
Wie ich vermute herauszulesen fehlt es die Letzte Spalte anzugeben jedoch wüsste ich nicht wie ich das hier jetzt lösen kann.
Wäre dankbar wenn mir jemand dabei helfen könnte und im voraus schon mal vielen Dank.
Sub A_SelectAllMakeTable()
Dim tbl As ListObject
Dim rng As Range
Set rng = Range(Range("A3"), Range("A3").SpecialCells(xlLastCell))
Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes)
tbl.TableStyle = "TableStyleMedium3"
End Sub
PS: Falls möglich hab ich gelesen das es zu nutzen ist wenn ein Error failure eingebaut wird falls die Tabelle nicht erstellt wird.
Aus dem Forum "Tabellentools" hierher verschoben
Moderator