in fortlaufende Spalten eintgagen
04.03.2008 09:14:37
Manfred
kann mir jemand helfen und sagen wie ich die übernommenen Werte in Tab2 ab SpD vortlaufend in die nächsten Sp eintgagen kann, ca. 110 Spalten, werden nachgetragen.
Public Sub Punkte_uebernehmen()
Dim WkSh_1 As Worksheet
Dim WkSh_2 As Worksheet
Dim lZeile As Long
Set WkSh_1 = Worksheets("Tabelle2")
Set WkSh_2 = Worksheets("Tabelle1")
For lZeile = 2 To WkSh_1.Range("B65536").End(xlUp).Row
If WkSh_1.Range("B" & lZeile).Value = WkSh_2.Range("B" & lZeile).Value Then
WkSh_1.Range("D" & lZeile).Value = WkSh_2.Range("D" & lZeile).Value
End If
Next lZeile
End Sub
Mit freundlichen Grüßen
Manfred