Tabellenvergleich VBA
13.05.2005 09:29:31
Wolfgang
mit viel Arbeit habe ich das Makro erstellt aber es ist nochimmer ein Fehler drin.
Bei Übereinstimmung sollen die Werte aus Tabelle 3 nach Tabelle 2 übergeben werden.
Der Fehler ist das die Werte zwar übergeben werden aber nicht in die richtige Zeile.
Was muss ich ändern.
Gruß
Wolfgang
wksT2.Cells(62) = wksT3.Cells(rFind.Row, 13)
wksT2.Cells(63) = wksT3.Cells(rFind.Row, 16)
Sub SuchenUndeinfügen()
Dim wksT1 As Worksheet, wksT2 As Worksheet, wksT3 As Worksheet
Dim rng As Range, rFind As Range, z As Range
On Error GoTo errorhandler
Application.ScreenUpdating = False
Set wksT2 = Sheets("Tabelle2") 'Tabellenname anpassen!
Set wksT3 = Sheets("Tabelle3") 'Tabellenname anpassen!
For Each rng In wksT2.Range("J37:J" & wksT2.Cells(65536, 1).End(xlUp).Row)
If rng <> "" Then
Set rFind = wksT3.Range("H:H").Find(rng)
If Not rFind Is Nothing Then
wksT2.Cells(62) = wksT3.Cells(rFind.Row, 13)
wksT2.Cells(63) = wksT3.Cells(rFind.Row, 16)
End If
End If
Next
errorhandler:
Application.ScreenUpdating = True
End Sub
Anzeige