Spalten vergleichen / neues Problem

Private Sub CommandButton2_Click()
Dim zelle, adre As String
Dim Wort(200), wo(200) As String, ad(200) As String, ziel As Integer
Dim r As Integer, zeil As Integer, t As Integer, rr As Integer
Dim u As Integer, za As Integer
tabe(1) = ComboBox1.Text
tabe(2) = ComboBox3.Text
tabnam(1) = ComboBox9.Text
tabnam(2) = ComboBox10.Text
start1 = ComboBox4.Value
start2 = ComboBox6.Value
za = 2
For r = start1 To Workbooks(tabe(1)).Worksheets(tabnam(1)).Range(ComboBox2.Text & 65536).End(xlUp).Row
Wort(r) = Workbooks(tabe(1)).Worksheets(tabnam(1)).Cells(r, ComboBox2.ListIndex + 1)
ziel = Range(ComboBox5.Text & 65536).End(xlUp).Row
With Workbooks(tabe(2)).Worksheets(tabnam(2)).Range(ComboBox5.Text & start2, ComboBox5.Text & ziel)
Set zelle = .Find(Wort(r))
If Not zelle Is Nothing Then
adre = zelle.Address
rr = rr + 1
ad(rr) = adre
Cells(Range(ad(rr)).Row, Range(ad(rr)).Column).Interior.ColorIndex = 3
'        Cells(Range(ad(rr)).Row, ComboBox8.Text) = TextBox1.Text
' Ausgabe der Zeilen für Erich
za = za + 1
For u = 1 To 25
Worksheets("Gefunden").Cells(za, u) = Worksheets(tabnam(2)).Cells(Range(ad(rr)).Row, u)
Next u
' Ende Zeilenausgabe
Do
Set zelle = .FindNext(zelle)
Loop While Not zelle Is Nothing And zelle.Address <> adre
End If
End With
Next r
Unload Me
UserForm1.Hide
End Sub