Finden mit vba
15.11.2006 21:48:04
Wolfgang
ich habe zwei Tabellenblätter Tab1 und Tab2
in tab2 habe ich eine Tabelle, die mit der in der Tab1 verglichen werden soll
Der string in der SpalteA der Tab2 soll mit dem
string in der SpalteA der Tab1 verglichen werden.
wenn vorhanden dann korrigiere den wert in der spalte B
wenn nicht vorhanden dann schreibe die Werte am ende der
Tabelle ein.
im skript ist ein Fehler.
hat jemand einen tipp
gruß wolfgang
Sub DatenBereinigen1()
Dim Nr As String
Dim rng As Object
Dim r As Range
Dim Tab2 As Object, Tab1 As Object
Set Tab2 = Worksheets("Tabelle2")
Set Tab1 = Worksheets("Tabelle1")
Set r = Tab1.Range("A:A")
Set rng = r.Find(what:=Nr, lookat:=xlWhole, LookIn:=xlValues)
For i = 3 To Tab2.Cells(65536, 1).End(xlUp).Row
Nr = Tab2.Cells(i, 1)
If Not rng Is Nothing Then
Cells(Tab1.rng.Address.Row, 2)=Tab2.Cells(i, 2)
Else
Cells(TabProg.Cells(65536, 1).End(xlUp).Row + 1, 1)=Tab2.Cells(i, 2)
End If
Next i
End Sub