habe das Makro aus dem Forum und habe noch gebastelt. Es sollte mir die Ergebnissliste mit der Auswertung vergleichen und die Punkte nach und nach in die Auswertung ab Sp D2, E2.... usw. schreiben. Das Makro nimt jetzt aber nur 10 Ergebnisse mit, es sollte aber alle Ergebnisse in der Auswertung einschreiben. Die Listen sind unsortiert und sollten auch so bleiben.
Kann mir jemand helfen ?
https://www.herber.de/bbs/user/70860.xls
Public Sub A4_Punkte_uebernen()
Dim WkSh_1 As Worksheet
Dim WkSh_2 As Worksheet
Dim lZeile As Long, lSpalte As Long
Set WkSh_1 = Worksheets("Auswertung")
Set WkSh_2 = Worksheets("Ergebnisse")
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
With WkSh_1
lSpalte = .Cells(lZeile, .Columns.Count).End(xlToLeft).Column
If lSpalte > 3 Then
lSpalte = lSpalte + 1
Else
lSpalte = 4
End If
.Cells(lZeile, lSpalte).Value = WkSh_2.Range("D" & lZeile).Value
End With
End If
Next lZeile
Call Worksheets("Auswertung").Spaltenbezeichnung
End Sub
Mit freunlichen Grüßen
Manfred