4
Tabelle erstellen makro, unbekannte Zeilenanzahl und bestimmte Spaltenzahl
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.
PS: Falls möglich hab ich gelesen das es zu nutzen ist wenn ein Error failure eingebaut wird falls die Tabelle nicht erstellt wird.
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.
1
2
3
4
5
6
7
8
2
3
4
5
6
7
8
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 SubPS: Falls möglich hab ich gelesen das es zu nutzen ist wenn ein Error failure eingebaut wird falls die Tabelle nicht erstellt wird.
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 532600
Url: https://administrator.de/forum/tabelle-erstellen-makro-unbekannte-zeilenanzahl-und-bestimmte-spaltenzahl-532600.html
Ausgedruckt am: 15.04.2025 um 09:04 Uhr
4 Kommentare
Neuester Kommentar
Es war eine gute Entscheidung diese Frage in einem Excel-Forum zu stellen:
https://www.clever-excel-forum.de/Thread-Als-Tabelle-formatieren-unbekan ...
https://www.clever-excel-forum.de/Thread-Als-Tabelle-formatieren-unbekan ...
Hallo,
das hier ist genau dein Problem, ein
sollte reichen
1
Set rng = Range(Range("A3"), Range("A3").SpecialCells(xlLastCell)) das hier ist genau dein Problem, ein
1
Set rng = Range("A3:AT") sollte reichen
Hi,
Dein Code:
Du könntest eine Zeile Deines Codes wie folgt wandeln:
Das würde, vorausgesetzt, dass die Zellen stimmig gefüllt sind, eine Matrize über die gefüllten Zellen spannen.
Dein Code:
1
2
3
4
5
6
7
8
2
3
4
5
6
7
8
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 SubDu könntest eine Zeile Deines Codes wie folgt wandeln:
1
Set rng = Range("A3").CurrentRegion Das würde, vorausgesetzt, dass die Zellen stimmig gefüllt sind, eine Matrize über die gefüllten Zellen spannen.
Vielen Dank an alle für die Schnelle Antwort mit
hat es funktioniert sowohl auch im die Antwort im Excel-Forum mit der Zeile
1
Set rng = Range("A3").CurrentRegion 1
Set Rng = Range("A3:AT" & Cells(Rows.Count, "A").End(xlUp).Row) 
1
