In Zeile ab einem bestimmten Wert restliche Zeile kopieren und darunter einfügen

Hallo Claus,
<br />hier scheint es zu sein:
<br />strData = Application.TextJoin(",", 1, .Range(.Cells(i, 1), .Cells(i, LCol)))
<br />Laufzeitfehler 438 Objekt unterstützt diese Eigenschaft oder Methode nicht.
<br />Ja, Standardmodul
<br />Vielen Dank für deine Mühe und beste Grüße
<br />Georg
<br />

Vielen Dank Claus für deine tolle Unterstützung und die funktionierenden Mappen.
<br />Die grundlegende Lösung habe ich damit.
<br />Leider ergibt die Abfrage aus der wir die Daten erzielen zu viele Daten und daher bräuchten wir unnötig viele Schritte. Wir werden für diese Aufgabe die Abfrage daher anders angehen. Dein letzter Vorschlag ist daher nicht nötig. Dennoch auch Danke dafür und für deine Kreativität.
<br />Viele Grüße
<br />Georg
<br />

Hallo Georg,
<br />wenn du diesen Fehler bekommst, gehe auf Debuggen und poste mal, bei welcher Zeile der Fehler auftritt.
<br />Hast du den Code in ein Standardmodul eingefügt?
<br />Claus
<br />

Hallo Ian,
<br />ich habe meine Frage aktualisiert. Vielleicht versteht man das besser.
<br />Ausgangslage:
<br />Eine Zeile mit Werten, die unregelmässig einen bestimmten Wert (Text) darstellen.
<br />Ziel:
<br />Eine Zeile beginnt mit jeweils diesem bestimmten Wert mit allen Werten, die in der einen Zeile hinter dem Wert stehen bis zur Zelle, die wieder diesen Wert enthält.
<br />Gruß
<br />Georg
<br />

Hallo Georg,
<br />probiere es mal mit folgendem Makro. Ändere im Code den Suchtext ab.
<br />

Sub Test()

Dim LRow As Long, i As Long

Dim LCol As Integer, n As Integer

Dim c As Range

n = 1

With ActiveSheet

LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

For i = 1 To LRow

LCol = .Cells(i, Columns.Count).End(xlToLeft)

Set c = .Rows(i).Find("Test")

If Not c Is Nothing Then

.Range(.Cells(i, c.Column), .Cells(i, LCol)).Copy .Cells(LRow + n, 1)

n = n + 1

End If

Next

End With

End Sub

Claus
<br />