Wie kann ich eine Variable für ein Tabellenblatt vergeben.
Ich habe eine Haupttabelle die mit Daten gefüllt ist. Nun lasse ich diese per Makro filtern und in ein anderes Blatt kopieren. Ich habe das für 6 andere Blätter genau gleich, nur dass das Filterkriterium ändert. Jetzt habe ich 6 solche Makros, aber eigentlich könnte ich ja den Blattname als Variable definieren. Leider habe keine Ahnung wie ...
-------------------
Sub copy_arnet()
Sheets("arnet").Select
With ActiveSheet
.Cells.Select
Selection.EntireColumn.Hidden = False
.Range("AA3:AU30000").Select
Selection.ClearContents
End With
...
-------------------
Dieser Code (unvollständig) setzt mir den Filter. Wie kann ich jetzt den Blattnamen "arnet" substituieren?
-------------------
Private Sub cd_admcopy_Click()
Sheets("gesamt").Select
ActiveSheet.Range("AR2") = "Arnet"
Modul1.copy_arnet
-------------------
Dieser Code setzt zuerst das neue Filterkriterium. Hier müsste ich dann vor dem Modul1.copy_arnet ja die Variable für den Blattnamen definieren.
Sollte doch irgendwie möglich sein, oder?
Besten Dank im Voraus.
Reto E.