Sub DatenKopieren()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim lastRow As Long
    Dim valueRow As Long
    Dim loopCounter As Long
    Dim data As String

    ' Arbeitsblatt mit den Daten zum Auslesen
    Set wsSource = ThisWorkbook.Worksheets("Arbeitsblatt3")

    ' Zielarbeitsblatt
    Set wsDestination = ThisWorkbook.Worksheets("LetztesArbeitsblatt")

    ' Startpunkt
    valueRow = wsSource.Range("A" & wsSource.Range("F1").Value).Value

    ' Schleife zum Kopieren der Daten
    Do While valueRow >= 1
        ' Wert aus Spalte B kopieren
        data = data & wsSource.Range("B" & valueRow).Value

        ' Prüfen, ob noch weitere Durchläufe erforderlich sind
        If valueRow > 1 Then
            ' Komma hinzufügen, wenn weitere Durchläufe erforderlich sind
            data = data & ","
        End If

        ' Um 1 herunterzählen für den nächsten Durchlauf
        valueRow = valueRow - 1
    Loop

    ' Daten in Zielzelle schreiben
    wsDestination.Range("K2").Value = data
End Sub