Tabellenname variabel
05.04.2022 09:58:21
Dom
mein Tabellenname ändert sich ständig (Tabelle1 --> Tabelle2-->Tabelle3...), dann lässt sich der Code nicht mehr ausführen.
Wie kann ich den Tabellenname variabel gestalten ?
Set rng = Sheet4.ListObjects("Tabelle1").Range
Mein Code:
Sub Filtern_Kopieren()
'Variablen dimensionieren
Dim rng As Range
Dim ws As Worksheet
'Tabelle in Range einlesen
Set rng = Sheet4.ListObjects("Tabelle1").Range
'Autofilter setzen
rng.AutoFilter 3, "NO.LINK"
'Gefilterte Tabelle auf neues Arbeitsblatt kopieren
rng.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet1").Range("A1")
End Sub
Vielen Dank!