Verkettung von Text in Zellen nach Bedingung (CONCATIF)

Beschreibung

Nehmen wir an, wir haben eine Tabelle mit Krediten mit entsprechenden Sicherheiten. Wir müssen beispielsweise eine Liste der Sicherheiten für jeden Kredit in einer Zelle anzeigen.

Excel kann uns nur eine einfache Funktion CONCATENATE zur Verfügung stellen, Sie müssen jedoch die erforderlichen Zellen manuell auswählen. Um die Arbeit zu vereinfachen, müssen wir den Prozess des Kombinierens von Text aus verschiedenen Zellen entsprechend einer Bedingung automatisieren. Wenn Sie also mithilfe der Bedingung IF schnell Text aus verschiedenen Zellen „verketten“ müssen, sollten Sie Ihre eigene Funktion schreiben.

Tabelle besicherter Kredite:

VBA-Code für die CONCATIF-Funktion

Erstellen wir also unsere eigene Funktion und nennen sie CONCATIF. Öffnen Sie dazu das Menü Service - Macros - Visual Basic Editor, fügen Sie das Modul VBA ein (Menü Insert - Module) und kopieren Sie dort den Text dieser Funktion :

Function CONCATIF(Table As Range, SearchValue As Variant, Table2 As Range)
	'moonexcel.com.ua
	Dim i As Integer
	
	For i = 1 To Table.Rows.Count
		If Table.Cells(i, 1) = SearchValue Then
			If Not IsEmpty(Table2.Cells(i, 1).Value) Then
			    CONCATIF = CONCATIF & Table2.Cells(i, 1).Value & "; "
			End If
		End If
	Next i
	
	CONCATIF = Left(CONCATIF, Len(CONCATIF) - 2)
End Function

Schließen Sie Visual Basic Editor und kehren Sie zu Excel zurück.

Jetzt können Sie in Function wizard in der Kategorie User defined unsere CONCATIF-Funktion finden und verwenden. Die Syntax dieser Funktion lautet wie folgt:

=CONCATIF (gesuchte Werte Spalte; gesuchte Werte; Datenspalte zum Kombinieren)

Wir werden folgendes Ergebnis haben:

Und schließlich müssen Sie die Bereiche A2:A10 und C2:C10 mit einem Dollarzeichen ($) sperren, damit die Bereiche beim Kopieren nicht nach unten verschoben werden Funktion.

Artikel zum Thema: