Laufzeit-Fehler 9 - Index ausserhalb gültigen B...
10.10.2003 23:22:00
Thorsten
Bekomme nur immer Laufzeit-Fehler 9 - Index ausserhalb gültigen Bereich! Was mach ich falsch ?
Sub Copy()
Dim i As Long
Dim TB2 As Worksheet
Set TB2 = Worksheets("Tabelle2")
For suchspalte = 1 To Range("A65536").End(xlUp).Row
For i = 1 To Range("A65536").End(xlUp).Row
If Sheets("Worksheet1").Cells(i, 1) = Sheets("Worksheet3").Cells(suchspalte, 1) Then
Rows(i).Copy TB2.Rows(TB2.Range("A65536").End(xlUp).Row + 1)
End If
Next i
Next suchspalte
End Sub