einmalig übergeben
28.02.2008 12:50:00
Manfred
habe den CODE im Forum gefunden, nun meine Frage.
Kann man mit diesem CODE auch einmalig in Tab2 SpC schreiben ?
Was drin ist bleibt drin. Währe für die Hilfe sehr dankbar.
Sub Namen_mit_Pnr_Vergl_und_Uebernehmen()
Dim vntX, vntY, lngX As Long, lngY As Long, intCol As Integer
vntX = Sheets("Tabelle2").Range("B2").CurrentRegion
vntY = Sheets("Tabelle1").Range("B2").CurrentRegion
For lngX = 2 To UBound(vntX, 1)
For lngY = 2 To UBound(vntY, 1)
If vntX(lngX, 2) = vntY(lngY, 2) Then 'vergleicht Spalte B in Tab1 und Tab2
For intCol = 3 To 3 ' schreibt in Tab2 SpC
vntX(lngX, intCol) = vntY(lngY, intCol)
Next
End If
Next lngY
Next lngX
Sheets("Tabelle2").Range("B2").CurrentRegion = vntX
End Sub
Mit freundlichen Grüßen
Manfred