Listenabgleich zum Update der Datenbank
12.01.2023 15:02:17
Erik
Datei 1 - Tabelle1
Datei 2 - Tabelle2
und in beiden ist jeweils eine mit einer ProduktID. In Datei 1 stehen die neuen Preise, in Datei 2 stehen die alten Preise (anders sortiert).
VBA soll jetzt abgleichen, wo die ProduktIDs übereinstimmen, und dann die neuen Preise in Datei 2 entsprechend eintragen.
Ein Makro was alle Preise in Datei 2 löscht hab ich schon fertig.
Hier der Code für den ID-Abgleich und Eintrag:
Sub Preisupdate()
Dim PreisSpalteNummer As Integer
Dim IDSpalteNummer As Integer
Dim ID1 As Long
Dim ID2 As Long
Dim Datei1 As Workbook
Dim Datei2 As Workbook
Set Datei1 = ThisWorkbook
Set Datei2 = ("Datei2.xlsx")
PreisSpalteNummer = 11
IDSpalteNummer = PreisSpalteNummer + 3
'Preis für Stempel identifizieren
ThisWorkbook.Worksheets("Tabelle1").Activate
For ID1 = 1 To 500
For ID2 = 1 To 500
If Sheets("Tabelle1").Cells(ID1, IDSpalteNummer).Value = Workbooks("Datei2.xlsx").Sheets("Tabelle2").Cells(ID2, 2).Value Then
Set Workbooks("Datei2.xlsx").Sheets("Tabelle2").Cells(ID2, 6).Value = ThisWorkbook.Sheets("Tabelle1").Cells(ID1, PreisSpalteNummer).Value
End If
Next ID2
Next ID1
End Sub
Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler
Irgendwelche Ideen?
Vielen Dank im Voraus