Jeff möchte eine Kopie seines „Master“ -Arbeitsblatts erstellen, nach einem Namen für das neue Arbeitsblatt fragen und es innerhalb eines Makros an das Ende der Arbeitsblattregisterkarten verschieben. Er hat versucht, ein Makro aufzunehmen, um dies zu tun, aber es hat nicht funktioniert.

Die Tatsache, dass das aufgezeichnete Makro nicht funktioniert hat, ist nicht sonderlich überraschend.

Wenn Sie ein Makro aufzeichnen, weisen Sie Excel an, die von Ihnen ausgeführten Schritte aufzuzeichnen.

Diese Schritte (in diesem Fall) umfassten die Benennung des Arbeitsblatts, sodass dieser Name im Makro aufgezeichnet wurde. Wenn Sie versuchen, das Makro ein zweites Mal auszuführen, wird eine Fehlermeldung angezeigt, da das Arbeitsblatt, das Sie im zweiten Durchgang erstellen möchten, bereits im ersten Durchgang erstellt wurde.

In diesem Fall müssen Sie ein Makro manuell schreiben. Sie können mit der Aufzeichnung des Vorgangs beginnen und erhalten einen Code wie den folgenden:

Sub Macro1()

Sheets("Master").Select     Sheets("Master").Copy After:=Sheets(3)

Sheets("Master (2)").Select     Sheets("Master (2)").Name = "NewMaster"

End Sub

Beachten Sie, dass der Code das Arbeitsblatt (nach dem dritten Blatt) platziert und es dann immer gleich benennt. Hier gibt es viel zu ändern. Was Sie tun möchten, ist es wie folgt zu ändern:

Sub CopyRename()

Dim sName As String     Dim wks As Worksheet     Worksheets("Master").Copy after:=Sheets(Worksheets.Count)

Set wks = ActiveSheet     Do While sName <> wks.Name         sName = Application.InputBox _           (Prompt:="Enter new worksheet name")

On Error Resume Next         wks.Name = sName         On Error GoTo 0     Loop     Set wks = Nothing End Sub

Dieses Makro kopiert das Arbeitsblatt mit dem Namen „Master“ an das Ende der Blattliste (unabhängig davon, wie viele Blätter Sie in der Arbeitsmappe haben) und fordert Sie weiterhin zur Eingabe eines neuen Arbeitsblattnamens auf, bis ein gültiger Name eingegeben wird.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3898) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Erstellen und Benennen eines Arbeitsblatts mit einem Makro.