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.

Lesen Sie mehr... Kostenfreier Download... Kauf...

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!

Lesen Sie mehr... Kostenfreier Download... Kauf...

Kommentare (28)

Noch keine Bewertungen. Bewerten Sie als Erster!

Jason

vor etwa 5 Jahren

#21450

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.

antworten

Kristall Jason

vor etwa 5 Jahren

#21451

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.

antworten

Report

Mei1 Kristall

vor ungefähr 3 Wochen

#42601

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

antworten

Kristall Mei1

vor ungefähr 1 Woche

#42878

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

antworten

Report

jJJ

vor etwa 5 Jahren

#21710

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.

antworten

Report

Kristall jJJ

vor etwa 5 Jahren

#21711

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

antworten

Report

JA Kristall

vor etwa 5 Jahren

#21712

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"

antworten

Kristall JA

vor etwa 5 Jahren

#21713

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.

antworten

Report

Alex Kristall

vor etwa 5 Jahren

#21714

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

antworten

Rj Alex

vor etwa 3 Jahren

#21715

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

Schadab Kristall

vor ungefähr 5 Monaten

#39971

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

antworten

John Hammonds Kristall

vor etwa 4 Jahren

#21716

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.

antworten

NOOR Kristall

vor etwa 3 Jahren

#21717

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

antworten

vor etwa 5 Jahren

#21987

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!

antworten

Kristall JA

vor etwa 5 Jahren

#21988

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Liebe JAS,
Es freut mich, dass ich helfen konnte.

antworten

Report

Nilanjan Pal

vor etwa 5 Jahren

#22475

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

antworten

Kristall Nilanjan Pal

vor etwa 5 Jahren

#22476

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Guten Tag,
Thank you for sharing.

antworten

Report

NickP84

vor etwa 2 Jahren

#32436

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?

antworten

Report

Kristall NickP84

vor etwa 2 Jahren

#32437

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.

antworten

Report

Dan

vor etwa 2 Jahren

#33150

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wie kann ich auf zwei Zellen verweisen? zum Beispiel Name und ID-Nummer?

antworten

Scott Keller

vor etwa 2 Jahren

#34080

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?

antworten

Report

Remi

vor etwa 1 Jahr

#35262

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

antworten

Ein Owen

vor ungefähr 8 Monaten

#38324

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?

antworten

Kristall Ein Owen

vor ungefähr 8 Monaten

#38379

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.

antworten

Report

Tom J

vor ungefähr 4 Monaten

#40075

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.

antworten

Kristall Tom J

vor ungefähr 4 Monaten

#40122

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

antworten

Report

Christoph Ward

vor ungefähr 3 Monaten

#40828

Dieser Kommentar wurde vom Moderator auf der Website minimiert

hat wunderbar funktioniert!

antworten

Yas

vor ungefähr 3 Monaten

#40992

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

antworten

Es sind noch keine Kommentare vorhanden