In diesem Artikel erfahren Sie, wie Sie einen aktiven Arbeitsmappenpfad in Excel finden.
CELL-Funktion in Excel
Die Zellenfunktion in Excel liefert Ihnen Informationen zu Arbeitsblättern wie Spalte, Inhalt, Dateiname usw.
Syntax
| =ZELLE("Dateiname",A1) |
„filename“ : erhält den vollständigen Namen des Blatts der Referenzzelle
A1 : Zellbezug des Blatts
Aber wir müssen nur den Blattnamen extrahieren. Im Grunde der Nachname.
Wie Sie sehen können, beginnt der Blattname nach ] (geschlossenes großes Klammerzeichen). Dazu brauchen wir nur seine Position im Text und dann extrahieren wir den Blattnamen.
Hier habe ich die Zeichen vom letzten Ergebnis gezählt, das 12 war. Aber das können wir nicht jedes Mal tun.
Um den Blattnamen aus dem vollständigen Namen zu extrahieren, müssen wir also die Position des ] (geschlossenes großes Klammerschild)
Verwenden Sie die Formel, um zu finden ]
| =FINDEN("]",ZELLE("Dateiname",A1)) |
58 ist die Position von ] .
Jetzt ist unsere Formel nun fertig
| =MITTEL(ZELLE("Dateiname",A1),FIND("]",ZELLE("Dateiname",A1))+1,255) |
Erläuterung:
CELL("filename",A1) : Ruft den vollständigen Namen des Arbeitsblatts ab
FIND("]",CELL("filename",A1))+1 : Diese Funktion ermittelt die Position von ] und fügen Sie +1 hinzu, da wir nur die Position des ersten Zeichens des Blattnamens benötigen.
255 : Maximale Wortgrenze des Blattnamens von Excel.
MID : Die MID-Funktion extrahiert den spezifischen Teilstring aus dem Text unter Verwendung der Position von Anfang bis Ende.
Hier haben wir den Dateinamen mit der Formel extrahiert.
Jetzt haben wir eine weitere Formel, anstatt die MID-Funktion zu verwenden. Verwenden Sie die RECHTS-Funktion.
Die RECHTS-Funktion extrahiert die spezifische Teilzeichenfolge aus dem letzten Text.
Verwenden Sie die Formel:
| =RIGHT(CELL("Dateiname",A2),LEN(CELL("Dateiname",A2))-FIND("]", CELL("Dateiname",A2))) |
Erläuterung:
FIND("]", CELL("filename",A2)) : Extrahiert die Position des Blattnamens char.
LEN(CELL("Dateiname",A2)) : Ermittelt die Länge des Textes(Dateiname)
RIGHT : Die RIGHT-Funktion extrahiert die Zeichenfolge anhand ihrer Position aus dem Text.
Wie Sie sehen, funktioniert auch diese Funktion einwandfrei. Jass… Jetzt haben wir 2 verschiedene Formeln mit Logik, die verwendet wird, um nur den Blattnamen zu extrahieren.
So erhalten Sie nur den Blattnamen mit VBA in Excel
VBA-Beispiel
Wir haben Daten in drei Blättern und wir möchten die Daten von allen im Hauptblatt konsolidieren. Daten aus jedem Blatt sollten am Ende einen Blattnamen haben.
Wenn Sie auf die Schaltfläche „Daten zusammen mit dem Blattnamen konsolidieren“ klicken, werden die Daten auf dem Hauptblatt konsolidiert.
Codeerklärung
SheetCount = Application.Worksheets.Count
Der obige Code wird verwendet, um die Anzahl des Arbeitsblatts in der Arbeitsmappe abzurufen.
LastRow = ActiveCell.SpecialCells(xlLastCell).Row
Der obige Code wird verwendet, um die Zeilennummer der letzten Zelle zu erhalten.
Bereich("A2:F" & LastRow).Auswählen
Der obige Code wird verwendet, um alle Daten ab Zelle A2 auszuwählen.
Auswahl.Kopie
Der obige Code wird verwendet, um die ausgewählten Daten zu kopieren.
Range(Selection, Cells(LastRow, 7)).Wert = Sheets(Counter).Name
Der obige Code wird verwendet, um der ausgewählten Zelle den Blattnamen zuzuweisen.
Bitte folgen Sie unten für den Code
Option explizit
Sub ConsolidateDataWithSheetName() 'Variablen deklarieren Dim Counter As Integer Dim SheetCount As Integer Dim LastRow As Long 'Deaktivieren von Bildschirmaktualisierungen Application.ScreenUpdating = False 'Ermitteln der Anzahl der Arbeitsblätter in der Arbeitsmappe SheetCount = Application.Worksheets.Count For Counter = 2 To SheetCount Sheets(Counter).Activate Range("A2").Select 'Zeilennummer der letzten Zelle abrufen LastRow = ActiveCell.SpecialCells(xlLastCell).Row 'Alle Daten in der Arbeitsmappe auswählen Range("A2:F" & LastRow ).Select 'Kopieren der ausgewählten Daten Selection.Copy Sheets("Main").Activate Range("A2").Select LastRow = ActiveCell.SpecialCells(xlLastCell).Row LastRow = LastRow + 1 'Einfügen der kopierten Daten in die letzte Zeile auf dem Hauptblatt Cells(LastRow, 1).Select ActiveSheet.Paste Cells(LastRow, 7).Select LastRow = ActiveCell.SpecialCells(xlLastCell).Row 'Hinzufügen des Blattnamens zusammen mit den Daten Range(Selection, Cells(LastRow, 7)).Value = Sheets(Counter).Name Next End Sub
Ich hoffe, dieser Artikel zum Finden eines aktiven Arbeitsmappenpfads in Excel ist erklärend. Weitere Artikel zum Berechnen von Werten und zugehörigen Excel-Formeln finden Sie hier. Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen. Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site.
Alles über benannte Excel-Bereiche: Excel-Bereiche, die mit Namen gekennzeichnet sind, sind in Excel-Formeln einfach zu verwenden. Erfahren Sie hier alles darüber.
Das Namensfeld in Excel : Excel Name Box ist nichts anderes als ein kleiner Anzeigebereich oben links im Excel-Blatt, der den Namen der aktiven Zelle oder der aktiven Bereiche in Excel anzeigt. Sie können eine Zelle oder ein Array für Referenzen umbenennen.
So erhalten Sie den Blattnamen des Arbeitsblatts in Excel : Die CELL-Funktion in Excel liefert Ihnen die Informationen zu jedem Arbeitsblatt wie Spalte, Inhalt, Dateiname usw.
So verwenden Sie dynamische benannte Bereiche in Excel : Ein dynamischer Namensbereich ist ein Name, der für das Array oder den Bereich verwendet wird, der sich je nach Daten erweitert oder verkleinert. Weitere Informationen zu dynamischen benannten Bereichen finden Sie hier.
So erstellen Sie eine Dropdown-Liste mit Farbe in Excel : Fügen Sie der Dropdown-Liste in Excel mithilfe der bedingten Formatierung und Datenvalidierung Farben hinzu.
Vor- und Nachname in Excel eintragen : Verbinden Sie zwei oder mehr Werte oder Namen mit dem CONCATENATE-Funktion oder & Operator. In diesem Artikel wird erläutert, wie Sie zwei oder mehr Zellen in Excel hinzufügen.
Populäre Artikel :
50 Excel-Kurzbefehle zur Steigerung Ihrer Produktivität : Erledigen Sie Ihre Aufgaben in Excel schneller. Diese Verknüpfungen helfen Ihnen, Ihre Arbeitseffizienz in Excel zu steigern.
So verwenden Sie die SVERWEIS-Funktion in Excel : Dies ist eine der am häufigsten verwendeten und beliebtesten Funktionen von Excel, die verwendet wird, um Werte aus verschiedenen Bereichen und Blättern zu suchen.
So verwenden Sie die IF-Funktion in Excel : Die IF-Anweisung in Excel überprüft die Bedingung und gibt einen bestimmten Wert zurück, wenn die Bedingung WAHR ist, oder einen anderen bestimmten Wert, wenn FALSE.
So verwenden Sie die SUMIF-Funktion in Excel : Dies ist eine weitere wesentliche Funktion des Dashboards. Dies hilft Ihnen, Werte unter bestimmten Bedingungen zusammenzufassen.
So verwenden Sie die ZÄHLENWENN-Funktion in Excel : Zählen Sie Werte mit Bedingungen mit dieser erstaunlichen Funktion. Sie müssen Ihre Daten nicht filtern, um bestimmte Werte zu zählen. Die Countif-Funktion ist unerlässlich, um Ihr Dashboard vorzubereiten.