Wie verknüpft man Zellen, wenn in einer anderen Spalte derselbe Wert vorkommt?
Wie im folgenden Screenshot gezeigt, gibt es mehrere Möglichkeiten, Zellen in der zweiten Spalte basierend auf identischen Werten in der ersten Spalte zu verketten. In diesem Artikel stellen wir drei effektive Methoden zur Lösung dieser Aufgabe vor.
Zellen bei identischem Wert mithilfe von Formeln und Filter verketten
Die folgenden Formeln helfen Ihnen, entsprechende Zellen in einer Spalte basierend auf übereinstimmenden Werten in einer anderen Spalte zu verketten.
1. Wählen Sie eine leere Zelle neben der zweiten Spalte (hier: Zelle C2), geben Sie in der Formel-Leiste die Formel =IF(A2<>A1,B2,C1 & "," & B2) ein und drücken Sie anschließend die Enter-Taste.
2. Wählen Sie dann Zelle C2 aus und ziehen Sie den Ausfüllknauf nach unten über alle Zellen, die Sie verketten möchten.
3. Geben Sie die Formel =IF(A2<>A3,CONCATENATE(A2,""",""",C2,""""),„") in Zelle D2 ein und ziehen Sie den Ausfüllknauf auf die restlichen Zellen.
4. Wählen Sie Zelle D1 aus und klicken Sie auf Daten > Filter. Siehe Screenshot:
5. Klicken Sie auf den Dropdown-Pfeil in Zelle D1, deaktivieren Sie das Kontrollkästchen (Leer) und klicken Sie anschließend auf die Schaltfläche OK.
Sie sehen, dass die Zellen verknüpft werden, sobald identische Werte in der ersten Spalte auftreten.
Hinweis: Damit die oben genannten Formeln zuverlässig funktionieren, müssen die identischen Werte in Spalte A lückenlos aufeinanderfolgen.
Einfaches Verketten von Zellen bei identischem Wert mit Kutools für Excel (nur wenige Klicks)
Die oben beschriebene Methode erfordert zwei Hilfsspalten und mehrere Arbeitsschritte – das kann umständlich sein. Wenn Sie eine einfachere Lösung suchen, empfehlen wir das Tool Erweiterte Zeilen zusammenführen aus dem Kutools für Excel. Mit nur wenigen Klicks verknüpft dieses praktische Hilfsprogramm Ihre Zellen mithilfe eines beliebigen Trennzeichens – schnell, einfach und ohne lästigen Aufwand.
1. Klicken Sie auf Kutools > Vereinigen/Aufteilen > Erweiterte Zeilen zusammenführen, um diese Funktion zu aktivieren.
2. Im Dialogfeld Erweiterte Zeilen zusammenführen müssen Sie lediglich Folgendes tun:
- Wählen Sie den Bereich aus, den Sie verketten möchten;
- Legen Sie die Spalte mit den identischen Werten als Primärschlüssel-Spalte fest.
- Trennzeichen zum Verketten der Zellen.
- Klicken Sie auf OK.
Ergebnis
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
- Um mehr über diese Funktion zu erfahren, lesen Sie diesen Artikel:Schnelles Zusammenführen identischer Werte oder Doppelte Zeile in Excel
Zellen bei identischem Wert mithilfe von VBA-Code verketten
Sie können auch VBA-Code nutzen, um Zellen einer Spalte zu verketten, sobald in einer anderen Spalte derselbe Wert auftaucht.
1. Drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den unten stehenden Code und fügen Sie ihn in das Modul-Fenster ein.
VBA-Code: Zellen bei identischen Werten verketten
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End SubHinweise:
3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend erhalten Sie die verketteten Ergebnisse in einem begrenzten Bereich.
Demo: Einfaches Verketten von Zellen bei identischem Wert mit Kutools für Excel
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