Überschreiben alter Werte statt unten anfügen?!
17.12.2014 10:42:00
Monika
ich habe in meinem Makro einen logischen Fehler, den ich einfach nicht erklären und daher nicht lösen kann... Vielleicht kann mir ja jemand helfen :)
Soll: Ich habe eine Tabelle, in der die Werte einer Spalte mit einer anderen Tabelle abgeglichen werden sollen und falls ein neuer hinzukommt, soll er ganz unten angefügt werden.
Ist: Das Ganze funktioniert an sich (also das Einfügen), allerdings fängt das Einfügen schon in der Tabelle an, das heißt es werden vorhandene Werte überschrieben und relevante Daten gehen verloren...
Code siehe unten...
Danke schon mal und viele Grüße
Monika
Code zum Erkennen der letzten Zeile:
lz1 = Sheets("Order Tracker").Range("L999").End(xlUp).Row
lZ2 = Sheets("OrderStatus").Range("D999").End(xlUp).Row
Code zum Einfügen/ Kopieren:
'once last row is reached exit the loop
If lz1 = i Then
' if entry has not been found ... then create new one at bottom
If Not (entryExists) Then
lz1 = lz1 + 1
Sheets("Order Tracker").Cells(lz1, 17).Value = VW ' VW=Vergleichswert
' TODO add current entry copy cells ... (Hier soll nur noch eingefügt werden, dass die zugehörigen Werte kopiert werden
Sheets("Order Tracker").Cells(lz1, 17).Interior.Color = RGB(100, 100, 100) ' Farbe der geänderten Zelle ändern (für debug)
'MsgBox ("Eintrag ist noch nicht in OrderTracker" + VW)
End If
End If