Zurücksetzen von Standardnamen für neue Arbeitsblätter (Microsoft Excel)
Peter entwickelte ein Makro, das alle Arbeitsblätter in einer Arbeitsmappe außer einem mit dem Namen „Index“ löscht. Dieses Makro funktioniert gut. Wenn er nach dem Ausführen des Makros ein neues Arbeitsblatt hinzufügt, erwartet er, dass es standardmäßig „Sheet1“ heißt, aber es wird tatsächlich eine spätere Nummer genannt, z. B. „Sheet3“ oder „Sheet4“. Peter fragt sich, was erforderlich ist, um die Blattnummerierung auf den erwarteten Standard zurückzusetzen.
Der einfachste Weg, die Blattnummerierung zurückzusetzen, besteht darin, die Arbeitsmappe einfach zu schließen und erneut zu öffnen. Dies beinhaltet jedoch einen manuellen Schritt von Ihrer Seite. Wenn Sie die neuen Arbeitsblätter über ein Makro hinzufügen, möchten Sie die Arbeitsmappe wahrscheinlich nicht manuell schließen und erneut öffnen.
Falls gewünscht, können Sie ein einfaches Makro erstellen, um den Vorgang zum Schließen und erneuten Öffnen durchzuführen. Dies funktioniert so lange, wie das Makro in Ihrer persönlichen Makro-Arbeitsmappe und nicht in der Arbeitsmappe gespeichert ist, die Sie schließen.
Sub Reopen() Dim wb As Excel.Workbook Dim sPath As String Set wb = ThisWorkbook sPath = wb.FullName Application.OnTime Now + TimeValue("00:00:01"), _ Application.Workbooks.Open(sPth) wb.Close (True) End Sub
Das Makro ermittelt den Namen der aktuellen Arbeitsmappe und legt dann ein OnTime-Ereignis fest, um die Arbeitsmappe in Zukunft 1 Sekunde zu öffnen. Während dieser 1 Sekunde wird die Arbeitsmappe jedoch geschlossen und gespeichert, sodass sie erfolgreich erneut geöffnet werden kann.
Auf Wunsch können Sie auch Ihre neuen Arbeitsblätter per Makro hinzufügen.
Das folgende kurze Makro fügt ein Arbeitsblatt hinzu und benennt es sofort in den gewünschten Namen um.
Sub AddWs() Worksheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "Sheet" & Sheets.Count - 1 End Sub
Sie möchten mit diesen Lösungen spielen und herausfinden, welche für Ihre Anforderungen am besten geeignet ist, insbesondere wenn Sie die Lösung in ein bereits vorhandenes Makro integrieren möchten.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (6103) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.