VBA für filtern und kopieren

[atilla]

Hallo,

ja, Du musst im Code die Namen anpassen.

Öffne den VBA Editor,
Rechtsklick auf eine freie Stelle in der Symbolleite
Voreinstellungen auswählen, wenn nicht ausgewählt
Wenn ausgewählt such in der Gruppe nach dem Fernglas
Damit öffnest Du ein Suchfenster
Bei Suchen nach gibst Du "Sorten" ein mit Anführungszeichen
bei den Optionen suchen nach wählst Du aktuellem Projekt aus
rechts daneben bei Nur ganzes Wort suchen ein Häkchen
Und rechts daneben Ersetzen auswählen
In die neue Textbox Deinen Tabellennamen eingeben mit Anführungszeichen
und alle erstzen, fertig

Das noch einmal mit "Tabelle1" wiederholen.

Am besten in einer Kopie Deiner Datei testen
Dann kannst Du auch mal mit der Suche rumprobieren. Wenns nicht passt einfach die Datei ohne Speichern schließen und wieder öffnen.
Wenns passt das Speichern nicht vergessen!

[Luc Lac]

danke dir. Das habe ich vorher auch gemacht. Ich dachte nur es gäbe vllt. eine dynamische Möglichkeit indem man im Code vllt. etwas ändert. Aber gut, so umständlich ist das ja nicht die 2 Sachen zu ersetzen:)

[schauan]

Hallöchen,

die Tabellen haben ja auch einen "Objektnamen". Nimm mal eine neue Datei und diesen Code:

Sub test()
MsgBox Tabelle1.Name
End Sub

Ändere dann den Name von Tabelle1 und lasse ihn nochmal laufen

Alternativ könntest Du auch auf einem gesonderten Tabellenblatt die Namen aller Blätter per Formel ermitteln. Änderst Du einen Blattnamen, bekommt das die "Formel" mit. Fügst Du ein Blatt hinzu, dann schreibst Du eine neue Formel für das neue Blatt in die Übersicht und kannst dann darauf zurück greifen...
Du darfst dann eben nur nichts in der Reihenfolge vom "Inhaltsverzeichnis" ändern, sonst läuft Dein Code eventuell auf einem falschen Blatt.