Note: The other languages of the website are Google-translated. Back to English

Wie kann der Name der Blattregisterkarte in Excel dem Zellenwert entsprechen?

In einigen Fällen müssen Sie möglicherweise ein Arbeitsblatt basierend auf einem angegebenen Zellenwert umbenennen. In diesem Artikel zeigen wir Ihnen Methoden, wie Sie den Namen der Blattregisterkarte in Excel dem Zellenwert anpassen können.

Machen Sie den Namen der Blattregisterkarte mit dem VBA-Code gleich dem Zellenwert
Machen Sie den Namen der Blattregisterkarte mit Kutools for Excel gleich dem Zellenwert


Machen Sie den Namen der Blattregisterkarte mit dem VBA-Code gleich dem Zellenwert

Mit dem folgenden VBA-Code können Sie den Namen der Blattregisterkarte automatisch dem Zellenwert anpassen.

1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, deren Blattname dem Zellenwert entsprechen soll, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:

2. Kopieren Sie den folgenden Code, fügen Sie ihn in das Codefenster ein und drücken Sie dann Andere + Q Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.

VBA-Code: Machen Sie die Blattregisterkarte gleich dem Zellenwert

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

Hinweis: Im Code ist A1 die Zelle, die den Wert enthält, den Sie als Blattnamen verwenden müssen. Sie können es nach Bedarf ändern.

Wenn sich der Wert in Zelle A1 von nun an ändert, wird auch der Name der Blattregisterkarte gleichermaßen geändert.


Machen Sie den Namen der Blattregisterkarte mit Kutools for Excel gleich dem Zellenwert

In diesem Abschnitt stellen wir Ihnen die vor Benennen Sie mehrere Arbeitsblätter um Nutzen von Kutools for Excel. Mit diesem Dienstprogramm können Sie Arbeitsblätter mit dem Wert einer bestimmten Zelle in Excel einfach umbenennen.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1 Klicken Kutoolen Plus > Arbeitsblatt > Benennen Sie mehrere Arbeitsblätter um. Siehe Screenshot:

2. In dem Benennen Sie mehrere Arbeitsblätter um Dialogfeld müssen Sie wie folgt vorgehen.

1). Überprüfen Sie die Arbeitsblattnamen, die Sie in umbenennen möchten Arbeitsblätter Feld (Sie können ein Blatt oder mehrere Blätter auswählen).
2). Wählen Ersetzen Sie den ursprünglichen Blattnamen Box in der Optionen umbenennen Abschnitt.
3). Wenn Sie ein Arbeitsblatt oder mehrere Arbeitsblätter mit dem angegebenen Zellenwert umbenennen möchten, wählen Sie bitte die Option Aus einem bestimmten Bereich Wählen Sie den Zellenbereich aus, auf dem Sie die Blätter basierend umbenennen möchten.
4). Drücke den OK Taste. Siehe Screenshot:

Sie können sehen, dass die ausgewählten Arbeitsblätter sofort durch den angegebenen Bereichswert umbenannt werden (siehe Abbildung unten).

Anmerkungen:

1. Du kannst den ... benutzen Filter Funktion zum einfachen Herausfiltern des benötigten Arbeitsblatts, wenn viele Arbeitsblätter vorhanden sind.
2. Wenn Sie mehrere Arbeitsblätter mit einem bestimmten Zellenwert in jedem Blatt umbenennen möchten. Zum Beispiel ist Blatt1 gleich dem Wert seiner Zelle A1, und Blatt2 ist auch gleich dem Wert seiner Zelle A1. Bitte wählen Sie Arbeitsblätter in der Arbeitsblätter Feld, dann wählen Sie die Benennen Sie Arbeitsblätter mit einer bestimmten Zelle um Option und geben Sie Zelle A1 im Feld an.

3. Der Blattname wird nicht automatisch geändert, wenn sich der Zellenwert ändert.

  Wenn Sie eine kostenlose Testversion wünschen (30-Tag) dieses Dienstprogramms, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Machen Sie den Namen der Blattregisterkarte mit Kutools for Excel gleich dem Zellenwert


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (28)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe dies wie angewiesen eingefügt, aber es wurde nicht in meiner Liste der verfügbaren Makros angezeigt. Ich habe versucht, es manuell auszuführen, indem ich den Makronamen eingegeben habe. Beim Versuch, das Makro auszuführen, kam eine Fehlermeldung "Argument no optional".

Private Sub Worksheet_Change (ByVal-Ziel als Bereich)
If Not Intersect(Target, Range("A1")) ist Nothing Then
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
End Sub

Hat jemand diesen Code ausgeführt und hatte das gleiche Problem?

Als Test habe ich einfacheren Code ausgeführt und es hat gut funktioniert, sodass der Wert in "A1" das Problem nicht verursacht. Wenn ich den folgenden Code ausführe, kann ich den Makronamen "myTabName" in der Makroliste sehen. Der obige Code wird nicht angezeigt und ich gehe davon aus, dass dies am Fehler/fehlenden Argument liegt.

Sub myTabName()
ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub

Vielen Dank für Ihre Hilfe, da ich den Code gerne so verwenden möchte, wie er zum Automatisieren von Änderungen des Registerkartennamens basierend auf einem Zellenwert vorgesehen ist.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Lieber Jason,
Der Code funktioniert in meinem Fall gut. Würden Sie bitte Ihre Office-Version bereitstellen? Danke für deinen Kommentar.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Kristall,

Bei mir hat es auch nicht funktioniert, könnte es daran liegen, dass die Zelle, auf die ich mich beziehe, eine Formel ist?

Danke für die Antwort
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Mei,

Danke für deine Rückmeldung. Das Problem wurde durch die Formel verursacht. Der Code wurde geändert. Bitte versuchen Sie es.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich bekomme diesen Code zum Laufen, aber er aktualisiert den Registerkartennamen nicht automatisch, wenn die Zelle, aus der er den Namen zieht, wenn auf eine andere Zelle verwiesen wird (und diese Zelle sich ändert).


Das heißt, ich ändere eine Zelle in einer Masterliste, wodurch der Zellentext in einer bestimmten Zelle auf jeder Registerkarte geändert wird, auf die der Code als Registerkartenname verweist, ABER die Registerkarte aktualisiert ihren Namen nicht entsprechend.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Der folgende VBA-Code kann Ihr Problem lösen. Danke für deinen Kommentar1

Private Sub Worksheet_Change (ByVal-Ziel als Bereich)
Dim xRg als Bereich, xCell als Bereich
On Error Resume Next
If Not Intersect(Target, Range("A1")) ist Nothing Then
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
Application.EnableEvents = Falsch
Setzen Sie xRg = ActiveSheet.Range("A1").Präzedenzfälle
Wenn nicht xRg ist dann nichts
Für jede xCell in xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Weiter
End If
Application.EnableEvents = Wahr
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert immer noch nicht. Ich habe das gleiche Problem wie jJJ. crystal: Wird der gesamte Code in Ihrer Antwort angezeigt?
Die letzte in Ihrem Kommentar angezeigte Zeile lautet "Set xRg = ActiveSheet.Range("A1").Precedents"
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe JAS,
Bitte klicken Sie rechts neben dem Kommentar auf die Schaltfläche Weiterlesen, um den gesamten Kommentar anzuzeigen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Habe immer noch das gleiche Problem.

Ich habe A1 des neuen Blattes auf eine andere Zelle in einer anderen Registerkarte verweisen. Es aktualisiert das erste Mal (beim Ausführen), aber dann keine Änderung beim Bearbeiten der Master-Zelle
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Private Sub Worksheet_SelectionChange (ByVal Target As Excel.Range)
Ziel setzen = Bereich ("A1")
Wenn Target = "" dann Sub beenden
Bei Fehler GoTo Badname
ActiveSheet.Name = Links (Ziel, 31)
Exit Sub
Name:
MsgBox "Bitte überarbeiten Sie den Eintrag in A1." & Chr(13) _
& "Es scheint einen oder mehrere zu enthalten" & Chr(13) _
& "illegale Zeichen." & Chr(13)
Bereich ("A1"). Aktivieren
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das Problem ist immer noch das gleiche, es ändert sich beim ersten Mal. Wenn ich diese Zelle mit einem anderen Blatt verknüpfe und sie ändere, wird sie nicht automatisch geändert
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich muss diesen Code verwenden, aber ich habe noch nie VBA-Code eingegeben. Jede Anleitung wäre willkommen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich ändere eine Zelle in einer Masterliste, wodurch der Zellentext in einer bestimmten Zelle auf jeder Registerkarte geändert wird, auf die der Code als Registerkartenname verweist, ABER die Registerkarte aktualisiert ihren Namen nicht entsprechend.

---- es ist keine Arbeit
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den ganzen Code bekommen, und es hat funktioniert. Vielen Dank für deine Hilfe!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe JAS,
Es freut mich, dass ich helfen konnte.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sie können eher einfache Makros verwenden



Untermakro3 ()
Dim-Index als ganze Zahl
Für Index = 1 bis 18

Blätter(Index).Name = Blätter(Index).Bereich("A2").Wert

Nächster Index



End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Thank you for sharing.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist genau das, was ich brauche, aber ich brauche die Registerkarte, um ein Datum neu zu erstellen, und es funktioniert nicht ... Ich nehme an, das hat etwas damit zu tun, wie Excel Datum und Uhrzeit berechnet. Kann jemand eine Problemumgehung vorschlagen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Nick,
Excel unterstützt nicht die Eingabe des Blattnamens, der Sonderzeichen enthält. Wenn das von Ihnen eingegebene Datum das Zeichen / enthält, können Sie den Blattnamen nicht mit diesem Datum erstellen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie kann ich auf zwei Zellen verweisen? zum Beispiel Name und ID-Nummer?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich verwende Ihren genauen Code von oben für VBA-Code, der perfekt für das funktioniert, was ich brauche. Ich habe jedoch eine Reihe von Makros auf einem Blatt namens Job Template, das kopiert und für jeden neuen Job wiederverwendet wird. Ich habe alle meine Makros basierend auf einer neuen kopierten Version namens Job Template (2) entworfen. Sobald der Blattname in den neuen Jobnamen geändert wurde, funktionieren die Makros nicht mehr und müssen manuell ausgeführt werden. Ich möchte in der Lage sein, jede meiner Makro-Schaltflächen jederzeit zu verwenden, anstatt sie nur zu verwenden, bevor ich den Blattnamen ändere.

Gibt es eine Möglichkeit für den VBA-Code, immer auf den Blattnamen zu verweisen, bevor die restlichen Codefunktionen ausgeführt werden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist die höchste Anzahl von Arbeitsblättern, deren Namen über Kutools Plus geändert werden können? denn das excel lässt mich nur 17 namen ändern, und das wars
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies funktionierte perfekt für mein erstes Arbeitsblatt, aber nicht für das zweite oder dritte usw. (ich habe bis zu etwa 20 Arbeitsblätter, die alle diese Funktion benötigen). Übersehe ich etwas?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo A-Owen,
Dieser Code funktioniert nur für jeweils ein Arbeitsblatt. Entschuldigung für die Unannehmlichkeiten.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Kristall,

Wenn ich Ihren Code einfüge, kommt der Fehler "benutzerdefinierter Typ nicht definiert" zurück?

Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo TomJ,
Stellen Sie sicher, dass diese drei Optionen im Dialogfeld „Referenzen – VBAProject“ aktiviert sind.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hat wunderbar funktioniert!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hallo,
que voulez-vous dire par appuyer autre autre+q dans le code vba après avoir collé.
J'ai simplement fermé la page après avoir collé et ça ne marche pas
wenden
Es sind noch keine Kommentare vorhanden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL