Tabellenblätter automatisch formatieren
17.07.2003 15:17:09
Martin S.
mit folgendem Makro erstelle ich eine Anzahl von neuen Blättern in meiner Mappe
Sub Tabellenanlegen()
Dim Zelle As Range
Sheets("Ursprung").Activate
For Each Zelle In Selection
Sheets.Add
ActiveSheet.Name = Zelle.Value
Next Zelle
End Sub
Nun möchte ich gerne, dass diese neu erstellen Blätter alle den gleichen Inhalt bzw. das gleiche Aussehen haben.
Hierzu habe ich ein Blatt der Mappe so formatiert, wie auch die neuen Blätter aussehen sollen. Wie schaffe ich das auf einfachstem Weg.