Tabelle vergleichen
Manfred
habe das Makro im Forum gefunden und umgebaut.
Jedoch das Makro spinnt, eimal läuft es dann wieder nicht.
Kann mir jemand sagen warum ? Oder was muss geändert werden ?
Sub A2_neue_Namen_uebernehmen()
'Tab1, SpalteB= P.-Nr., SpalteC=Name
'Tab2, SpalteB= P.-Nr., SpalteC=Name, =identischer Aufbau wie Tab1
'in Tab1 werden nach und nach P.-Nr. und Namen ergänzt, diese müssen per Makro
'in Tab2 in SpalteB und SpalteC fortlaufend untereinanander ohne Sortierung übernommen werden.
Dim vntX, vntY, lngX As Long, lngY As Long, intCol As Integer
Dim Target As Long
vntX = Sheets("Tab2").Range("B2").CurrentRegion
vntY = Sheets("Tab1").Range("B2").CurrentRegion
For lngX = 2 To UBound(vntX, 1)
For lngY = 2 To UBound(vntY, 1)
If vntX(lngX, 2) = vntY(lngY, 2) And vntX(lngX, 3) = "" Then 'vergleicht Tab1 SpB mit _
_
_
Tab2 SpB, nachfolgendes einschreiben von SpC nach Tab2
For intCol = 3 To 3
vntX(lngX, intCol) = vntY(lngY, intCol)
Next
End If
Next lngY
Next lngX
Sheets("Tab2").Range("B2").CurrentRegion = vntX
End Sub
Mit freundlichen Grüßen
Manfred