Wie verweise ich in Excel auf das Arbeitsblatt anhand der Indexnummer anstelle des Namens?
Bei vielen Excel-Benutzern wird der Standard-Arbeitsblattname gewöhnlich in den erforderlichen umbenannt. In vielen Fällen müssen sie das Arbeitsblatt jedoch anhand seiner Indexnummer und nicht anhand seines tatsächlichen Namens referenzieren. Wie erreicht man das? Sie können die Methode im Artikel ausprobieren.
Gehen Sie wie folgt vor, um das Arbeitsblatt anhand der Indexnummer anstelle des Namens in Excel zu referenzieren.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Referenzarbeitsblatt nach Indexnummer in Excel
Function SHEETNAME(number As Long) As String
SHEETNAME = Sheets(number).Name
End Function
3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Notes:
1. Wenn Sie einen bestimmten Blattnamen mit seiner Nummer referenzieren müssen, wählen Sie eine leere Zelle aus und geben Sie die Formel ein = BLATTNAME (1) direkt in die Formelleiste und drücken Sie die Eingabetaste. Siehe Screenshot:
2. Wenn Sie einen Zellenwert aus einem Arbeitsblatt basierend auf seiner Indexnummer erhalten möchten, verwenden Sie bitte diese Formel.
=INDIRECT("'"&SHEETNAME(1) &"'!A1")
3. Wenn Sie eine bestimmte Spalte in einem Arbeitsblatt anhand ihrer Indexnummer summieren möchten, wenden Sie diese Formel an.
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 Formula Bar (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-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
If you use this UDF, I'd suggest Making two changes in bold below, with notes on why.
Function SHEETNAME(number As Long) As String
Application.Volatile <--------- this makes the function recalculate when you change the sheets name. Otherwise when you change the sheet name it doesn't change unless you perform a manual recalculation.---------- SHEETNAME = Thisworkbook.Sheets(number).Name <------ If you use this function in multiple workbooks, it will only check names of the workbook the function is in. Otherwise this function will potentially call the tab names from other open Workbooks with this formula.------- End Function
Nice solution. Also, referencing cell B4 of the first sheet in another Excel file can be done like this: =INDIRECT("'[other_filename.xlsx]"&SHEETNAME(1) &"'!B4")
However note that the file containing the VBA script needs to be stored as a macro file, .xlsm
