Wie verketten Sie Zellwerte, bis in einer Spalte in Excel eine leere Zelle auftritt?
Beispielsweise habe ich eine Liste von Werten, die einige leere Zellen enthält, und möchte alle Datensätze zwischen den leeren Zellen jeweils zu einem einzigen Wert zusammenfügen sowie diese kombinierten Werte in einer anderen Spalte auflisten – wie im folgenden Screenshot dargestellt. Wie kann ich Zellwerte so lange verketten, bis eine leere Zelle in der Spalte auftritt?
Zellwerte verketten, bis eine leere Zelle in einer Spalte gefunden wird – mit VBA-Code
Zellwerte verketten, bis eine leere Zelle in einer Spalte gefunden wird, mit Kutools für Excel
Zellwerte verketten, bis eine leere Zelle in einer Spalte gefunden wird – mit VBA-Code
Es gibt keine direkte Möglichkeit, eine Gruppe von Zellen zwischen leeren Zellen zu verketten – doch mit dem folgenden VBA-Code gelingt es Ihnen problemlos. So geht’s:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Zellwerte verketten, bis eine leere Zelle gefunden wird
Sub Concatenatecells()
'updateby Extendoffice
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xTStr As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "the selected range is more than one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please select output cell:", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell <> "" Then
xTStr = xTStr & xCell & " "
Else
xSaveToRg.Value = xTStr
Set xSaveToRg = xSaveToRg.Offset(1)
xTStr = ""
End If
Next
If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
Application.ScreenUpdating = True
End Sub
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint ein Eingabefeld, das Sie auffordert, den Datenbereich auszuwählen, den Sie verketten möchten. Siehe Screenshot:
4. Klicken Sie dann auf OK, und es erscheint ein weiteres Eingabefeld, in dem Sie „Bitte wählen Sie eine Zelle zur Ausgabe des verketteten Ergebnisses“ sehen. Siehe Screenshot:
5. Klicken Sie anschließend auf die OK-Schaltfläche, und die Spaltendaten werden zwischen den leeren Zellen verkettet. Siehe Screenshot:
Zellwerte verketten, bis eine leere Zelle in einer Spalte gefunden wird, mit Kutools für Excel
Wenn Sie Kutools für Excel installiert haben, können Sie diese Aufgabe mithilfe der Funktionen Bereich transformieren und Kombinieren ebenfalls schnell erledigen. Das Hilfsprogramm Bereich transformieren wandelt eine einzelne Spalte in einen Bereich um, und mit der Funktion Kombinieren können Sie den transformierten Bereich wieder zu einer Spalte zusammenführen.
Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:
1. Wählen Sie die Zellen aus, die Sie verketten möchten, und klicken Sie auf Kutools > Bereich > Bereich transformieren. Siehe Screenshot:
2. Aktivieren Sie im Dialogfeld Bereich transformieren die Option Einzelne Spalte zu Bereich unter Transformationsart, und wählen Sie anschließend Durch Leerzeichen getrennt unter Zeilen pro Datensatz aus. Siehe Screenshot:
3. Klicken Sie dann auf Ok, und es erscheint ein Eingabefeld, in dem Sie aufgefordert werden, eine Zelle für die Ausgabe des Ergebnisses auszuwählen. Siehe Screenshot:
4. Klicken Sie auf OK, und die Daten aus der einzelnen Spalte werden anhand der leeren Zellen in mehrere Zeilen und Spalten umgewandelt. Siehe Screenshot:
5. Die umgewandelten Daten verteilen sich auf mehrere Spalten und müssen daher zu einer einzigen Spalte zusammengeführt werden. Markieren Sie den gewünschten Datenbereich und klicken Sie auf Kutools > Vereinigen/Aufteilen > Zeilen/Spalten/Zellen kombinieren und Werte beibehalten. Siehe Screenshot:
6. Nehmen Sie im Dialogfeld Spalten kombinieren oder Zeilen die folgenden Einstellungen vor:
(1.) Wählen Sie die Option Spalten kombinierenaus dem Feld Den ausgewählten Bereich wie folgt zusammenführen;
(2.) Geben Sie anschließend Trennzeichen an, mit dem Sie die verketteten Werte trennen möchten;
(3.) Wählen Sie aus, wie Sie mit den kombinierten Zellen verfahren möchten: Behalten oder löschen Sie die Originaldaten – und entscheiden Sie, ob diese Zellen zusammengeführt werden sollen. Siehe Screenshot:
7. Klicken Sie nach Abschluss der Einstellungen auf die Schaltfläche Ok oder Übernehmen. Die Zellen wurden mit einem bestimmten Trennzeichen zu einer Spalte verkettet. Siehe Screenshot:
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
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