Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        appZiel.Visible = False
        appQuell.Visible = False
 
        For n As Integer = 1 To xlsZielTabBlatt.UsedRange.Rows.Count - 1
            ProgressBar1.Maximum = xlsZielTabBlatt.UsedRange.Rows.Count - 1
            For i As Integer = 1 To xlsQuellTabBlatt.UsedRange.Rows.Count - 1
                If xlsZielTabBlatt.Cells(n, ListBox3.SelectedIndex + 1).Text = _
                  xlsQuellTabBlatt.Cells(i, ListBox6.SelectedIndex + 1).Text _
                  Then
                    xlsZielTabBlatt.Cells(n, ListBox2.SelectedIndex + 1) = _
                    xlsQuellTabBlatt.Cells(i, ListBox4.SelectedIndex + 1)
                End If
            Next i
            ProgressBar1.Value = n
        Next n
        ProgressBar1.Value = 0
        appZiel.Visible = True
    End Sub