ich habe folgendes Problem und bin leider nicht sehr vertraut mit VBA Programmierung.
Ich versuche das Problem zu beschreiben:
Sheet A & Sheet B sollen verglichen werden. (Jeweils Spalte 2)
Angenommen "ABC3726" befindet sich in Sheet B in Zeile 72 Spalte 2.
In Sheet A befindet sich "ABC3726" jedoch in Zeile 13, Spalte 2.
So Soll der Wert aus Sheet B, Zeile 72, Spalte 1 in das Sheet A Zeile 13 Spalte 1 eingetragen werden.
Public Sub Merge()
Dim i, o As Integer
Dim AnzZeilenA, AnzZeilenB As Long
AnzZeilenB = 1
AnzZeilenA = 1
Sheets("SheetA").Select
Cells(2, 2).Select
For i = 1 To 500
For o = 1 To 500
If Sheets("SheetB").Cells(i, 2) = Sheets("SheetA").Cells(o, 2) Then
'Prio
Cells(AnzZeilenB , 1) = Sheets("SheetB").Cells(o, 1)
AnzZeilenB = AnzZeilenB + 1
GoTo NextI
End If
Next o
AnzZeilenB = AnzZeilenB + 1
NextI:
Next i
End Sub
Ergibt jedoch nicht das erwünschte Ergebnis
Kann mir da jemand helfen? :)
VG
Jacek