Tabellenname in Zelle kopieren
22.07.2003 13:11:32
Martin S.
ich habe eine Arbeitsmappe deren Tabellenblätter automatisch mit Namen aus einer Mustertabelle benannt wurden. Hierzu setze ich folgendes Makro ein:
Sub Tabellenanlegenundkopieren()
Dim Zelle As Range
For Each Zelle In Selection
Sheets("Adresse").Activate
Sheets("AD0000000").Copy after:=Sheets("Adresse")
ActiveSheet.Name = Zelle.Value
Next Zelle
End Sub
Nun möchte ich gerne in jedes Blatt (in eine bestimmte Zelle) den Namen des Blattes kopieren. z.B. Tabellenblatt heißt "AD000002", dann soll in Zelle b1 des Blattes auch AD000002 stehen.
Da meine Arbeitsmappe bis zu 300 Blätter einhält möchte ich dies gerne in einem Arbeitsschritt per VBA erledigen.
Für Hilfe bin ich dankbar.