Tabellen vergleichen
10.11.2003 20:51:16
Erich M.
habe aus dem Forum ein Makro kopiert (weiss
aber nicht mehr welcher Beitrag) und habe folgendes Problem.
Das Makro läuft wenn ich im Modul nicht mit "Option Explicit"
beginne. Wenn ich "Option Explicit" voranstelle (was ich
generell mache, da ich meistens mehrere Makros in einem Modul
habe), find ich nicht heraus wie ich "c" definieren muss
(As ...) --> Objekt erforderlich?
Wie muss ich "c" bezeichnen?
Sub Tabelle_vergleichen()
Dim lastrow As Integer, i As Integer, Wert As Integer, c As ??
Sheets("T1").Activate
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
Wert = Cells(i, 1).Value
With Sheets("T2").Columns(1)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
If Cells(i, 2) = c(1, 2) Then
Cells(i, 3) = c(1, 3)
End If
End If
End With
Next i
End Sub
Besten Dank für eine Hilfe!
mfg
Erich