Wann Dir en Excel-Aarbechtsbuch hutt, deen Honnerte vun Aarbechtsblieder huet, an elo wëllt Dir eng Lëscht vun all den Aarbechtsblattnimm kréien, kënnt Dir op dësen Artikel referenzéieren. Hei wäerte mir 3 einfach Methoden mat Iech deelen.
Heiansdo kënnt Dir verlaangt ginn eng Lëscht vun all Aarbechtsblattnimm an engem Excel Aarbechtsbuch ze generéieren. Wann et nëmmen e puer Blieder sinn, kënnt Dir just d'Method 1 benotzen fir d'Blattnimm manuell ze lëschten. Wéi och ëmmer, am Fall wou d'Excel-Aarbechtsbuch eng grouss Zuel vun Aarbechtsblieder enthält, sollt Dir besser déi lescht 2 Methoden benotzen, déi vill méi effizient sinn.
Method 1: Gitt d'Lëscht manuell
- Als éischt, öffnen de spezifesche Excel-Aarbechtsbuch.
- Dann, duebel klickt op den Numm vun engem Blat an der Blat Lëscht um ënnen.
- Als nächst dréckt op "Ctrl + C" fir den Numm ze kopéieren.
- Méi spéit, erstellt eng Textdatei.
- Dann dréckt "Ctrl + V" fir de Blatnumm ze pechen.
- Elo, op dës Manéier, kënnt Dir den Numm vun all Blat op d'Textdatei een nom aneren kopéieren.
Method 2: Lëscht mat Formel
- Um Ufank, gitt op de Tab "Formelen" a klickt op de "Numm Manager" Knäppchen.
- Als nächst, an der Popup-Fënster, klickt op "Nei".
- An der nächster Dialogbox gitt "ListSheets" am Feld "Numm".
- Spéider, am Feld "Referéiert op", gitt déi folgend Formel:
=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")
- Duerno klickt op "OK" an "Zoumaachen" fir dës Formel ze späicheren.
- Als nächst erstellt en neit Aarbechtsblat am aktuellen Aarbechtsbuch.
- Da gitt "1" an Zell A1 an "2" an Zell A2.
- Duerno, wielt déi zwou Zellen an zitt se erof op d'Input 2,3,4,5, etc. an der Kolonn A.
- Spéider setzt déi folgend Formel an Zell B1.
=INDEX(Lëschtblieder,A1)
- Op eemol gëtt den éischte Blatnumm an der Zell B1 agefouert.
- Endlech, kopéiert just d'Formel erof bis Dir den "#REF!" Feeler.
Method 3: Lëscht iwwer Excel VBA
- Fir astart, Excel VBA Editor ausléisen no "Wéi Run VBA Code an Ärem Excel".
- Da setzt de folgende Code an e Modul oder Projet.
Sub ListSheetNamesInNewWorkbook() Dim objNewWorkbook As Workbook Dim objNewWorksheet As Worksheet Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets(1) For i = 1 To ThisWork.Countbook.SheetWorksi. ech objNewWorksheet.Cells(i, 1) = ThisWorkbook.Sheets(i).Name Next i With objNewWorksheet .Rows(2).Insert .Cells(1, 1) = "INDEX" .Cells(1, 1).Font. Fett = True .Cells(1, 1) = "NAME" .Cells(2, 1).Font.Bold = True .Columns("A:B").AutoFit End With End Sub
- Spéider dréckt "F5" fir dëse Makro elo ze lafen.
- Op eemol erschéngt en neit Excel-Aarbechtsbuch, an deem Dir d'Lëscht vun den Aarbechtsblattnimm vun der Quell Excel-Aarbechtsbuch gesinn.
Verglach
| Virdeeler | Nodeeler | |
| Methode 1 | Einfach ze bedreiwen | Ze lästeg wann et vill Aarbechtsblieder gëtt |
| Methode 2 | Einfach ze bedreiwen | Verlaangt datt Dir den Index als éischt gitt |
| Methode 3 | Séier a praktesch | D'Benotzer sollten oppassen op déi extern béiswëlleg Makroen |
| Einfach och fir VBA Newbies |
Excel gëtt korrupt
MS Excel ass bekannt fir vun Zäit zu Zäit ze crashen, doduerch déi aktuell Dateie beim Spueren beschiedegt ginn. Dofir ass et recommandéiert en externen mächtegen ze kréien Excel Reparatur Tool, wéi z DataNumen Outlook Repair. Et ass well dës Selbst-Erhuelungsfunktioun an Excel bewisen ass dacks ze versoen.
Auteur Aféierung:
Shirley Zhang ass en Daten Erhuelung Expert an DataNumen, Inc., deen de weltwäite Leader an Daten Erhuelung Technologien ass, dorënner sql fix an Ausbléck Reparatur Software Produiten. Fir méi Informatiounen besicht www.datanumen.com
Wann Dir d'Nimm vun der Tab wëllt gesinn an net an enger Datei späicheren, befollegt d'Schrëtt hei ënnen:
Schrëtt 1: Halt d'Maus entweder op der "lénks Tab Verréckelung" Ikon (vum Symbol representéiert).
Schrëtt 2: Press "Ctrl" Knäppchen a riets Maus Knäppchen.
Schrëtt 3: Dir gesitt all "Tab Nimm" mat engem Popup Menü Rubrik "Aktivéieren"
Wann Dir just d'Nimm vun den Tabs wëllt gesinn, befollegt just déi 3 einfach Schrëtt hei ënnendrënner:
Schrëtt 1: Halt d'Maus entweder op der "lénks Tab Verréckelung" Ikon (vum Symbol representéiert).
Schrëtt 2: Press "Ctrl" Knäppchen a riets Maus Knäppchen.
Schrëtt 3: Dir gesitt all "Tab Nimm" mat engem Popup Menü Rubrik "Aktivéieren"
Geschafft wéi e Charme. Merci.
Wow, erstaunlech Blog Struktur! Wéi laang bloggt Dir schonn?
Dir maacht e Blog einfach ze maachen. De ganze Look vun Ärer Websäit ass super, loosst den Inhalt!
Dir kënnt ähnlechen hei E-Commerce gesinn
Ech hu geduecht an hunn de Message ewechgeholl
Fir Method #2, mam ListSheets Makro (=REPLACE(GET.WORKBOOK(1),1,FIND(“]”,GET.WORKBOOK(1)),””)), huet iergendeen e Wee fonnt fir nei ze zwéngen. Berechnung? Ech kann e Blatnumm änneren, awer bis ech den Zellinhalt läschen an d'Formel =INDEX(ListSheets,[RefCell]) erëm aginn, bleift den alen Blatnumm am Resultat.
Ech hu keng Äntwert op anerer gesinn, déi posted Froen, awer ech hunn de #BLOCKED begéint! Feeler nodeems Dir Excel zougemaach hutt an d'Datei mat dësem Makro nei opmaacht. Ech brauch de Fichierverzeichnis ze maachen wou et zu enger Vertrauensplaz gespäichert ass.
Aussergewéinlech!!!!
Genial an einfach geschafft mat der Formelmethod. Erstaunlech. Merci!
Hunn dech gär dofir!
Mir soen Iech nach eng Kéier Merci fir déi wonnerbar Iddien, déi Dir Janet ugebueden hutt, wann Dir hir eege post- Graduéierter Fuerschung
plus, most Wichteg, betreffend all d'Iddien an engem Blog post.
Virausgesat datt mir virun engem Joer Är Websäit bewosst gewiescht wieren, kënne mir gerett ginn
vun deenen nëtzlosen Moossnamen, déi mir agesat hunn.
Villmools Merci. Spillsaachen fir Erwuessener
Mir sinn eng Grupp vu Fräiwëlleger an en neit Schema an eiser Gemeng op.
Är Websäit huet eis wäertvoll Informatioun ugebueden fir un ze schaffen. Dir hutt eng formidabel Aarbecht gemaach
an eis ganz Gemeinschaft wäert Iech dankbar sinn.
spenden fir Ukraine
Excellent, wat e Weblog ass et! Dës Websäit gëtt hëllefräich Donnéeën ze
eis, weider esou. spenden fir Ukraine
Weg schaffen krna sikha dain
Merci dofir. Fir e Schrëtt ze späicheren, hunn ech d'Funktioun benotzt:
=INDEX(Lëschten, ROW(A1))
an kopéiert et erof. Esou brauch ech keng Kolonn fir d'Zuelen 1 bis n ze halen
Method 3 funktionnéiert wéi e Charme. Weess iergendeen wéi de VBA Code ännert fir en Aarbechtsblat an der existéierender Aarbechtsbuch ze kreéieren fir d'Lëscht vun den Aarbechtsblattnimm ze weisen?
Ech Léift Äre Blog .. ganz flott Faarwen & Thema. Hutt Dir dës Websäit selwer gemaach oder hutt Dir een agestallt fir et fir Iech ze maachen? Plz Äntwert wéi ech sichen mäin eegene Blog ze designen a géif gären erausfannen wou Dir dëst hierkënnt. villmols merci
大変参考になりました、ありがとう。
WAT ASS MENG FICHE NUMM ASS GANZ LANG? SEI ET ASS NUMERIC A 24 ZIGRE LANG .. ech FUNN AN DËS FORMULE NËMMEN DÉI éischt 12 Ziffere VUN DEN WERKBLEETEN GËTT FANGEN
Merci. Method 2 war genau wat ech gebraucht 🙂
Wann ech e Blattnumm änneren, aktualiséieren ech net an Zellen, déi dorop referenzéiert sinn, kréien en #REF! Feeler. Wéi ouni Macro ze léisen? Merci.
o.web20.services
Villmols Merci - genau wat ech gebraucht hunn.
Villmools Merci!!! Extrem hëllefräich
Villmools Merci!
Mat den neien O365 Funktiounen kënnt Dir direkt =TRANSPOSE(ListSheets) benotzen.
Wann Dir och d'Blatnummere wëllt/brauchen, ass =SEQUENCE(COLUMNS(ListSheets)) souguer dynamesch.
merci, Method 3 gerett mech e puer Stonnen vun ctr-C / ctr-V
Villmools Merci fir dës dräi Optiounen ze deelen. Ech sinn net averstanen mam Benotzer deen op de post als "idiotesch". Et ass ganz einfach ze kritiséieren, awer brauch wierklech Effort fir anerer ze hëllefen. Merci fir Är Hëllef!
dëst ass idiotesch - maacht just e Freaking PDF aus der Excel Datei - Dir kritt d'Nimm an eng PDF vun all.
Method zwee geschafft wéi e Charme, merci
Wéi kréien ech et fir en Tab am aktuellen Aarbechtsbuch ze maachen / aktualiséieren anstatt en neit Aarbechtsbuch ze kreéieren?
Fantastesch! Method zwee huet super geschafft. Instruktioune ware kloer & Screenshots waren hëllefräich. Gëtt net besser.
Ech kréien och den #BLOCKED! Fehlermeldung fir d'Optioun 2 an ech ka kee Wee fannen fir 'opzemaachen' 🙁
Merci, huet mir vill Aarbecht gespuert
Method 2 funktionnéiert net an Excel 2021!
Just eng Kommentarmethod 2 erfuerdert keng Lëscht als éischt wann Dir den =INDEX(ListSheets,A1) duerch =INDEX(ListSheets,Row(A1) ersetzt).
Method 2 erfuerdert Iech och als Macro-aktivéiert Aarbechtsbuch ze späicheren, well se benotzt Excel 4.0 Legacy Funktioun
Wierklech appréciéiert. Sou séier fir de VBA aus 'niddereg Wëssen' ze benotzen!
Merci, wéi maachen ech d'Resultaterausgab a menger aktueller Datei op der Tab "Tab Index", déi schonn existéiert, nach besser an eng Tabell?
Dat war genial!! Merci fir de VBA Code!!!!!! Gespuert mech wéi eng Stonn vun vergiessen numbing Aarbecht!
Ech kréien e Feeler #BLOCKED! wann ech probéieren d'Method 2 (Lëscht mat Formel). Ech wëll de Blatnumm a mengem Aarbechtsbuch benotzen, sou datt d'VBA Method keng Hëllef ass.
Salut, Lëscht iwwer Excel VBA funktionnéiert super, plz proposéiere wat fir de Code z'änneren fir et ze kréientart an der Rei 4, Kolonn B (Index an B4, Numm an C4)
Merci! Dëst huet sou vill Zäit fir mech gespuert, ech schätzen wierklech datt Dir dëst mat all deelt!
BTW, gëtt et e Wee fir just déi siichtbar Aarbechtsblieder ze drécken (an net déi verstoppt)? Ech weess, datt ech hei vill froen, awer dat kéint d'Formel nach besser maachen 🙂
Gratulatioun a villmools Merci!!!
Merci fir deen Macro! Et huet geschafft wéi e Charme
Dëst ass erstaunlech. Villmols Merci fir post! Dir hutt mir just Stonnen Aarbecht gespuert.