Private Sub CommandButton1_Click()
    Dim i As Integer, b As Integer
 
    i = 2
    b = 1
 
    Do
        If Tabelle2.Cells(i, 1).Value <> "" Then
            If Tabelle2.Cells(i, 1).Value = "1" Then
                Tabelle1.Cells(b, 1).Value = Tabelle2.Cells(i, 2).Value
                b = b + 1
            End If
            i = i + 1
        Else
            Exit Do
        End If
    Loop
End Sub