Hallo,
kann mir jemand sagen wieso ich bei diesem Programm den Fehler:
"Laufzeitfehler 438" bekomme?
Sub vergleich()
Dim i As Integer
Dim j As Integer
Dim k As String
i = 2
j = 8
For i = 1 To 200
For j = 1 To 200
If Worksheets("Tabelle1").Range("A" & i).Value = Worksheets("Tabelle2").Range("A" & j).Value Then
Set Worksheets("Tabelle1").Range("G" & i) = Worksheets("Tabelle2").Range("D" & j)
End If
Next j
Next i
End Sub |