Text1 in Textverketten Funktion definieren

Forumthread: Text1 in Textverketten Funktion definieren
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Text1 in Textverketten Funktion definieren

14.04.2025 15:30:10

Chris

Hallo,

bitte helft mir,
es geht um die Funktion =TEXTVERKETTEN("; ";WAHR;B1:B30)

wie bekomme ich es hin, dass sich der Bereich B1:B30 zu B31:B60 ändert, wenn ich die Formel eine Zeile nach unten kopiere, bzw. dann B61:B90 wenn ich sie nochmal eine Zeile nach unten kopiere, noch eine Zeile dann B91:B120, dann B121:B150 usw.

Danke
Christian

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text1 in Textverketten Funktion definieren

14.04.2025 15:42:48

{Boris}
AW: Text1 in Textverketten Funktion definieren

14.04.2025 16:00:36

Chris
per VBA Skript

14.04.2025 15:42:51

velo
AW: per VBA Skript

14.04.2025 21:59:23

Chris

AW: Text1 in Textverketten Funktion definieren

14.04.2025 15:42:48

{Boris}

Hi,

z.B.:

=TEXTVERKETTEN("; ";WAHR;INDEX(B:B;ZEILEN($1:1)*30-29):INDEX(B:B;ZEILEN($1:1)*30))

VG, Boris

AW: Text1 in Textverketten Funktion definieren

14.04.2025 16:00:36

Chris

Hallo Boris, funktioniert bestens, vielen Dank
Christian

per VBA Skript

14.04.2025 15:42:51

velo

Hallo Christian,

im folgenden per VBA Skript:

Sub copy()

    Dim ws As Worksheet: Set ws = ActiveSheet

    Dim i As Long

    

    For i = 1 To 151 Step 30 'in diesem Fall bis 151

        With ws

            'Formel in Spalte C

            .Cells(.Range("C" & .Rows.Count).End(xlUp).row + 1, 3).FormulaLocal = "=TEXTVERKETTEN(""; "";WAHR;B" & i & ":B" & i + 29 & ")"

        End With

    Next i

End Sub

Hier musst du halt noch ggf. die Spalte anpassen, in der die Formel stehen soll --> also das C und die 3 vor FormulaLocal ändern
Außerdem müsstest du wahrscheinlich noch das 151 anpassen, je nachdem wie weit das gehen soll

VG
velo

AW: per VBA Skript

14.04.2025 21:59:23

Chris

Hallo Velo,

wie du schon sagtest, hab noch das ein oder andere angepasst bzw. hinzugefügt (weitere Texte) aber habe jetzt auch eine funktionierende VBA Lösung.

Vielen DAnk
Christian

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!