VBA Datenschnitte für Tabellen
01.09.2015 10:46:13
Mabelle
Ich habe 28 Tabellenblätter und ab Tabellenblatt 2 sollen jeweils die gleichen Aktionen ausgeführt werden:
1. Alle beschriebenen Zellen als Tabelle formatieren
2. Auf alle Spalten der Tabelle AutoFit anwenden
3. Die gleichen Datenschnitte (für Spalte1, Spalte3, Spalte4, Spalte6) einfügen.
4. Hyperlink zum Blatt "Start" einfügen.
Für 1. und 2. habe ich schon einen Ansatz:
Sub A_SelectAllMakeTable()
Dim tbl As ListObject
Dim rng As Range
Dim sht As Worksheet
For i = 2 To Worksheets.Count
Sheets(i).Select
Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlCellTypeLastCell))
Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes)
tbl.TableStyle = "TableStyleMedium4"
ThisWorkbook.Worksheets(i).Cells.EntireColumn.AutoFit
Next i
Sheets("Start").Select
Columns("F:F").ColumnWidth = 0
End Sub
Das Problem dabei ist, dass die Tabelle bis Spalte ZZ reicht, also viel zu weit.
Ich glaube das liegt an SpecialCells(xlCellTypeLastCell).
Bei Punkt 3 habe ich leider keine Ahnung und für Punkt 4 könnte ein Code vielleicht so aussehen:
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Start!A1", TextToDisplay:="Zurück zum Start"
Anzeige