Wie erstellt man in Excel eine Liste mit eindeutigen Werten aus mehreren Arbeitsblättern?
Wenn Sie mit Daten arbeiten, die sich über mehrere Excel-Arbeitsblätter erstrecken, müssen Sie diese möglicherweise konsolidieren und eine Liste eindeutiger Werte erstellen. Obwohl Excel hierfür keine direkte integrierte Funktion bietet, stehen Ihnen gleich mehrere effektive Methoden zur Verfügung. In diesem Artikel stellen wir Ihnen drei praktische Ansätze vor, um mühelos eine Liste eindeutiger Werte aus mehreren Arbeitsblättern zu generieren.
Erstellen einer Liste eindeutiger Werte aus mehreren Arbeitsblättern
Erstellen einer Liste eindeutiger Werte aus mehreren Arbeitsblättern mit VBA-Code
Um alle eindeutigen Werte aus sämtlichen Arbeitsblättern aufzulisten, unterstützt Sie der folgende VBA-Code. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten „ALT + F11“ gedrückt, um das Fenster „Microsoft Visual Basic für Applikationen“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie das folgende Makro in das Modulfenster ein.
VBA-Code: Erstellen einer Liste eindeutiger Werte aus mehreren Arbeitsblättern:
Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
If xObjWS.Name = xStrName Then
xObjWS.Delete
Exit For
End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xMaxC < xColumn Then
xMaxC = xColumn
End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
xIntN = 1
For xFNum = 1 To Sheets.Count - 1
Set xR = Sheets(xFNum).Columns(xColumn)
If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
Cells(xIntN, xColumn).PasteSpecial xlValues
xIntN = xIntRox + xIntN + 1
End If
Next xFNum
If xIntRox - 1 > 0 Then
xIntRox = xIntN - 1
xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range(xStrAddress).Copy
Cells(1, xColumn + 1).PasteSpecial xlValues
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
Columns(xColumn).Delete
Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Drücken Sie nach dem Einfügen des obigen Codes F5, um ihn auszuführen. Es wird automatisch ein neues Blatt mit dem Namen „Unique value“ erstellt, und die eindeutigen Namen aus Spalte A aller Blätter werden wie im folgenden Screenshot gezeigt aufgelistet:
Erstellen einer Liste eindeutiger Werte aus mehreren Arbeitsblättern mit KUTOOLS AI Aide
In diesem Abschnitt zeigen wir Ihnen, wie Sie mithilfe von KUTOOLS AI Aide mühelos eine Liste eindeutiger Werte aus mehreren Arbeitsblättern erstellen können.
Klicken Sie auf „Kutools“ > „AI-Assistent“, um den Bereich „KUTOOLS AI Aide“ zu öffnen, und führen Sie dort die folgenden Schritte aus:
- Geben Sie Ihre Anforderung in das Chatfeld ein, z. B.:
Extrahieren Sie alle eindeutigen Werte aus Spalte A aller Arbeitsblätter dieser Arbeitsmappe und listen Sie sie in einem neuen Blatt auf - Drücken Sie anschließend die Eingabetaste oder klicken Sie auf die Schaltfläche „Senden“. KUTOOLS AI analysiert Ihre Anfrage. Sobald die Analyse abgeschlossen ist, klicken Sie bitte auf „Ausführen“. Alle eindeutigen Werte aus mehreren Blättern werden daraufhin in einem neuen Blatt angezeigt – siehe Demo:
Erstellen einer Liste eindeutiger Werte aus mehreren Arbeitsblättern mit Formel (Excel 365)
Möchten Sie mithilfe einer Formel eine Liste eindeutiger Werte aus mehreren Arbeitsblättern in Excel erstellen, gelingt Ihnen das ganz einfach durch die Kombination dynamischer Arrayfunktionen wie UNIQUE und VSTACK in Excel 365.
Geben Sie die folgende Formel in eine leere Zelle ein und drücken Sie anschließend die Eingabetaste, um eindeutige Werte aus mehreren Blättern in einer einzigen Spalte zusammenzuführen. Siehe Screenshot:
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKKombiniert mehrere Bereiche – wie beispielsweise Tabelle1!A1:A11, Tabelle2!A1:A11, Tabelle3!A1:A11 und Tabelle3!A1:A11 – zu einem einzigen vertikalen Array.
- UNIQUE: Filtert Duplikate heraus und liefert ausschließlich eindeutige Werte aus der kombinierten Liste zurück.
- A1:A11Passen Sie den Bereich so an, dass er Ihren tatsächlichen Datenbereich umfasst.
In diesem Artikel stellen wir Ihnen drei effektive Methoden vor, um eine Liste eindeutiger Werte aus mehreren Excel-Arbeitsblättern zu erstellen. Jede Methode hat ihre eigenen Vorteile – so finden Sie garantiert die passende Lösung für Ihre Excel-Version, Ihr Know-how und Ihre individuellen Anforderungen. Wenn Sie noch mehr Excel-Tipps und -Tricks entdecken möchten,bietet unsere Website Tausende von Anleitungen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins