Blattnamen ändern
29.04.2003 20:39:19
Christian
ich lasse ein Tabellenblatt kopieren und dann zusammenfassen. Soweit funktioniert alles. Zum Abschluß möchte ich den Namen des Tabellenblattes ändern.
Dazu lasse ich vorher den Namen des Quellblattes Zwischenspeichern bzw. übergebe ihn an eine Variable.
Diese soll dann den Namen des Quellblattes und einen Zusatz "Bericht" als neuen Namen eintragen.
Mein Code:
BName = ActiveSheet.Name
ActiveSheet.Copy Before:=ActiveSheet
Application.CutCopyMode = False
....
dann meine weiteren Anweisungen
....
ActiveSheet.Name = BName & "Bericht"
End sub
Leider wird der Name des Tabellenblattes überhaupt nicht geändert. Es heißt immernoch z.B. "Elektro (2)" weil es ja gerade copiert wurde.
Hat da jemand einen Tip für mich.
Danke