Tabellenvergleich per VBA
29.10.2005 10:43:51
wolfgang
ich habe 2 Tabellenblätter
In Blatt 1 stehen in Spalte B Zahlen.
Diese Zahlen sollen mit Zahlen aus Blatt2 Spalte A verglichen werden.
Bei Übereinstimmung soll der Text aus Blatt 2 Spalte 2 nach blatt1 Spalte C übertragen werden.
Was habe ich Falsch gemacht.
Sub REG_Suchen_und_einfügen()
Dim wksT1 As Worksheet, wksT2 As Worksheet, _
rng As Range, rFind As Range
On Error GoTo errorhandler
Application.ScreenUpdating = False
Set wksT1 = Sheets("Tabelle1") 'Tabellenname anpassen!
Set wksT2 = Sheets("Tabelle2") 'Tabellenname anpassen!
For Each rng In wksT1.Range("B1:B" & wksT1.Cells(65536, 1).End(xlUp).Row)
If rng <> "" Then
Set rFind = wksT2.Range("A1:A").Find(rng)
If Not rFind Is Nothing Then
wksT1.Cells(rng.Row, 3).Value = wksT2.Cells(rFind.Row, 2).Value
End If
End If
Next rng
errorhandler:
Application.ScreenUpdating = True
End Sub
Gruß
Wolfgang