Importierung von Daten / Preislistenänderung

Hallo liebes Excel-Forum,
und zwar habe ich folgendes Problem. Ich habe eine Excel-Liste, in der Name, Produktnummer und der Preis enthalten sind.
Wöchentlich bekomme ich eine Liste mit aktualisierten Preisen bzw neuen Produkten.
Jetzt würde ich gerne ein Makro haben, dass die wöchentliche Liste (kann auch manuell dementsprechend formatiert werden) importiert wird.
Daraufhin wird anhand der Produktnummer nach Duplikaten geprüft. Wenn die Produktnummer noch nicht vorhanden ist, wird eine Zeile
hinzugefügt mit dem entsprechenden Namen, Produktnummer und Preis. Sollte die Produktnummer schon vorhanden sein, wird nur der Preis
aktualisiert.
Ist das technisch umsetzbar mit Makros und vba?
Bin langsam am Verzweifeln! Smile
Vielen Dank im Voraus und beste Grüße,

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tobias
im Beispiel ist Produktnummer in Spalte 1 Name in Spalte 2 und der Preis in Spalte 3
beide Dateien öffnen und das Makro von der Zieldatei aus starten
Gruss Beni

Sub Daten_sammeln()
Windows("Daten.xls").Activate 'anpassen
If Workbooks.Count > 2 Then MsgBox "Es darf nur eine Quelldatei offen sein!", vbCritical, " _
Datei schliessen": Exit Sub
If Workbooks.Count = 1 Then MsgBox "Bitte Quelldatei öffnen!", vbInformation, "Datei öffnen":  _
Exit Sub
For wkb = 1 To Workbooks.Count
If Not Workbooks(wkb).Name = ActiveWorkbook.Name Then Set wb = Workbooks(wkb).Sheets(1) '  _
Name Quelldatei setzen, da nicht bekannt
Next wkb
For i = 2 To wb.Cells(Rows.Count, 1).End(xlUp).Row ' bis Ende Quelldatei
Prod = Cells(i, 1)
Set p = Columns(1).Find(What:=Prod, LookIn:=xlValues, LookAt:=xlWhole)
If Not p Is Nothing Then
Cells(p.Row, 3) = wb.Cells(i, 3) ' Spalte 3
Else
nz = Cells(Rows.Count, 1).End(xlUp).Row + 1 ' neue Zeile
Cells(nz, 1) = wb.Cells(i, 1) ' Spalte 1
Cells(nz, 2) = wb.Cells(i, 2) ' Spalte 2
Cells(nz, 3) = wb.Cells(i, 3) ' Spalte 3
End If
Next i
End Sub

Sub Daten_sammeln() Windows("Daten.xlsx").Activate 'anpassen Set wb = Workbooks(test.xlsx).Sheets(1) ' Name Quelldatei setzen, da nicht bekannt For i = 2 To wb.Cells(Rows.Count, 1).End(xlUp).Row ' bis Ende Quelldatei Prod = Cells(i, 1) Set p = Columns(1).Find(What:=Prod, LookIn:=xlValues, LookAt:=xlWhole) If Not p Is Nothing Then Cells(p.Row, 3) = wb.Cells(i, 3) ' Spalte 3 Else nz = Cells(Rows.Count, 1).End(xlUp).Row + 1 ' neue Zeile Cells(nz, 1) = wb.Cells(i, 1) ' Spalte 1 Cells(nz, 2) = wb.Cells(i, 2) ' Spalte 2 Cells(nz, 3) = wb.Cells(i, 3) ' Spalte 3 End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

Importierung von Daten / Preislistenänderung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread