Ich versuche, Zellen in einer Zeile zusammenzufügen, wenn in einer Zelle in dieser Zeile ein Wert vorhanden ist.

Die Daten wurden aus einer TXT-Datei importiert, und verschiedene Unterüberschriften sind in 2, 3 oder 4 Spalten unterteilt.

Die Zellen können nicht zusammengeführt werden, da die Daten nur aus der ersten Zelle übernommen werden.

Die einzigen Wörter, die immer konstant sind, sind "enthalten" und "für" in Spalte B.

Was ich versucht habe, sieht ungefähr so aus:

Wenn cell.Value wie "enthalte", oder "zu "Fügen Sie dann alle Zellen von Spalte" A "bis Spalte" H "in Spalte" B "ein, richten Sie sie mittig aus und machen Sie sie fett.

ielen Dank im Voraus für jede Hilf

Bearbeiten Hier ist der Code:

    Sub Joining()
    Dim N As Long, i As Long, r1 As Range, r2 As Range
 Dim z As Long
 Dim arr() As Variant
 z = 1

With Activesheet
    N = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        If .Cells(i, "B").Value Like "Summary*" Then
            arr = .Range(.Cells(i, "A"), .Cells(i, "H")).Value
            .Cells(z, "B").Value = Join(arr, " ")
            z = z + 1
        End If
    Next i
End With

End Su