vergleiche Tabellen
Manfred
gestern hat mir Franz geholfen das Makro zu berichtigen jedoch erst jetzt habe ich gemerkt daß das Makro noch nicht richtig in die Spalten einschreibt.
Im ersten Durchgang werden alle Einträge von Ergebnisse Sp D nach Auswertung in Sp D geschrieben das ist auch richtig, im zweiten Durchgang müssen alle Einträge von Ergebnisse Sp D nach Auswertung in Sp E auch die neuen Einträge, das wird aber nicht gemacht die neuen Einträge werden in Sp D geschrieben.
Kann mir nochmal jemand helfen ?
https://www.herber.de/bbs/user/70887.xls
Public Sub A4_Punkte_uebernen()
Dim WkSh_1 As Worksheet
Dim WkSh_2 As Worksheet
Dim lZeile As Long, lSpalte As Long, vP_Nr As Variant, Zelle As Range
Set WkSh_1 = Worksheets("Auswertung")
Set WkSh_2 = Worksheets("Ergebnisse")
With WkSh_1
For lZeile = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
vP_Nr = .Cells(lZeile, 2).Value
If vP_Nr "" Then
'P-Nr in Spalte B (2) des Ergebnisblattes suchen
Set Zelle = WkSh_2.Columns(2).Find(What:=vP_Nr, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
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.Cells(Zelle.Row, 4).Value
End If
End If
Next lZeile
End With
Call Worksheets("Auswertung").Spaltenbezeichnung
End Sub
Mit freundlichen Grüßen
Manfred