Tabellenabgleich
30.05.2005 08:04:54
Andreas.R
ich habe von Ingolf folgendes Makro erhalten, das alle neuen Datensätze aus Tabelle "Neu" in die Tabelle "Auswertung" einfügt, wenn der Datensatz in Tabelle "Auswertung" noch nicht vorhanden ist.Datensätze die in Tabelle "Auswertung" bereits vorhanden sind sollen dabei nicht überschrieben bzw. verändert werden.(wegen Formeln zur weiteren Behandlung)
Sub kopieren()
Dim rng As Range, rngZiel As Range
For Each rng In Worksheets("Neu").Range(Cells(2, 11), Range("A65536").End(xlUp))
Set rngZiel = Worksheets("Auswertung").Range("A2:A65536") _
.Find(what:=rng, lookat:=xlWhole)
Range(rng, rng.Offset(0, 15)).Copy
If rngZiel Is Nothing Then
Worksheets("Auswertung").Range("A65536").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Else
rngZiel.PasteSpecial Paste:=xlPasteAll
End If
Next rng
End Sub
Das funktioniert auch ganz gut
Nur mein Problem dabei ist, das meine Kundennumer nicht in Spalte "A", sondern in Spalte "K" steht. Die Codezeile
Range(rng, rng.Offset(0, 15)).Copy
soll nur den Datensatz von Spalte "A"-"P" kopieren. Was bei Ingolf seinem Makro ja auch funzt.
Wie muß die Codezeile aber lauten, wenn der Suchbegriff in Spalte K gesucht wird , und auch dann die Datensätze von Spalte "A"-"P" werden sollen.
besten Dank für Eure Hilfe
Gruß Andreas