Makro erweitern
18.09.2005 22:01:46
Josef
Habe ein Problem, dass ich alleine nicht lösen kann.
Mit unten stehenden Makro, frage ich aus Sheet1 Spalte A,ob in Sheet2 Spalte A,
beide Kennummern identisch sind und wenn ja, soll der Wert in Sheet1 Spalte F,
mit dem Wert aus Sheet2 Spalte E, aktualisiert werden. In Sheet2, stehen immer die neuesten Daten, die sich täglich ändern. Unten stehendes Makro erledigt das auch alles Super.
Nun mein Problem: In Sheet2 werden öfter komplett neue Datensätze erfasst, die in Sheet1 noch nicht stehen. Ich möchte erreichen, dass wenn ein neuer Datensatz in Sheet2 existiert, die komplette Zeile nach Sheet1 kopiert wird.
Die beiden Sheets, haben die gleiche Struktur und nur Werte, keine Formeln.
Sheets(1).Activate
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
Wert = Cells(i, 1).Value
With Sheets(2).Columns(1)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
If Cells(i, 6) C(1, 5) Then Cells(i, 6) = C(1, 5)
End If
End With
Next i
Kann mir dabei bitte jemand helfen?
Gruß
Josef