Guten Morgen,
Der Inhalt dahinter: In Register1 werden neue Protokollpunkte aufgenommen, in Register2 sind alle Mangelpunkte enthalten.
Folgender Code muss noch überarbeitet werden, da er so noch nicht funktioniert.
Ich weiss nicht in welcher Zeile von Spalte A in "Register1" die Zahl übereinstimmt mit welcher Zeile von Spalte A in "Register2"
Es kann sich um die selbe Zelle handeln, muss aber nicht: Deshalb Variable i und y.
Hängt es vielleicht damit zusammen, dass i=y aber auch i>y sein kann?
--------------------------------
Sub Optimierung()
Dim i As Integer
For i = 1 To 200
Dim y As Integer
For y = 1 To 200
'Bedingung wenn Nr. Register 1 = Nr Register 2, dann…
'Zelleninhalt aus Register1 in Register2 kopieren und einfügen
If Worksheets("Register1").Cells(i, 1).Value = Worksheets("Register2").Cells(y, 1) Then
Worksheets("Register1").Cells(i, 2).Copy Destination:=Worksheets("Register2").Cells(y, 2)
End If
Next
Next
End Sub
-----------------------------------
Vielen Dank für Eure Hilfe!
Gruss
|