Schritt für Schritt: Umbenennen eines Excel-Blatts mit Zellinhalten mithilfe von Makro

Dieser Artikel wurde von Raddini Rahayu, Microsoft MVP, geschrieben.

Fall

Hier finden Sie wöchentliche Verkaufsaktivitätsberichte. In diesem Fall sind beispielsweise 15 Personen vorhanden. Nancy, die Administratorberichte, wird zugewiesen, um alle Verkaufsdaten in einer Datei zusammenzufassen, in der alle Verkäufe auf jedem Blatt getrennt sind. Zum einfachen Anordnen von Daten stimmt jedes Blatt, das Nancy den Namen gab, mit dem Verkaufsnamen auf diesem Blatt überein. Zunächst fühlt sich Nancy damit wohl, aber da mehr Daten und eine schnelle Verarbeitung erfordern, war Nancy so überfordert. Um dies zu umgehen, möchte Nancy die Namensblätter automatisch entsprechend dem Verkaufsnamen auf jedem Blatt ändern, ohne es manuell umzubenennen.

Lösungen

Die beste Lösung, um das Problem von Nancy zu lösen, ist die Verwendung von Makros. Dieses Makro wurde für jedes Blatt in dieser Datei entwickelt, unabhängig von der Anzahl der Blätter. Der Name jedes Blatts ändert sich entsprechend dem Verkaufsnamen, der an der gleichen Stelle auf jedem Blatt ermittelt wurde.

Ausführen

Erster Schritt

• Entwerfen von Berichtsformaten und Angeben der Zellenposition, an der der Vertriebsname platziert werden soll. In diesem Fall befindet sich die Position in Zelle J2. Dieses Berichtsformat sollte auf jedem Blatt identisch sein.

• Behalten Sie die Blattnamen im Standardnamen bei (Sheet1, Sheet2, Sheet3 usw.).

  

Letzter Schritt

Makrocodierungsschritt

Nachdem wir die Position der Zelle kennen, an der der Vertriebsname platziert werden soll, können wir nun mit dem nächsten Schritt fortfahren, makrocodierung.

1. Wählen Sie auf der Registerkarte Entwicklertoolsvisual Basic in der Kategorie Code aus, oder drücken Sie die Tastenkombination ALT+F11 auf der Tastatur, damit das Visual Basic-Fenster angezeigt wird.

   

2. Klicken Sie im Projektaufgabenbereich auf (Arbeitsmappenname), wählen Sie dann im Menü Einfügen die Option Modul aus, und schreiben Sie das folgende Skript:

   Sub RenameSheet()
   
   Dim rs As Worksheet
   
   For Each rs In Sheets
   rs.Name = rs.Range("B5")
   Next rs
   
   End Sub
   

   

3. Drücken Sie F5 auf der Tastatur. Wenn kein Debuggen vorhanden ist, schließen Sie das Visual Basic-Fenster, und kehren Sie zu Excel zurück. Wenn gedebuggt ist, überprüfen Sie Ihr Skript erneut.

4. Kehren Sie zu Excel zurück, und sehen Sie, was passiert. Wenn die Codes korrekt sind, wird der Name jedes Blatts gemäß dem vorhandenen Verkaufsnamen auf jedem Blatt umbenannt.

   

Das war's auch schon. Hoffentlich nützlich.

Informationen zum Haftungsausschluss von Drittanbietern

Die in diesem Artikel genannten Drittanbieterprodukte stammen von Herstellern, die von Microsoft unabhängig sind. Microsoft gewährt keine implizite oder sonstige Garantie in Bezug auf die Leistung oder Zuverlässigkeit dieser Produkte.