mit Hilfe diesen Makros lese ich eine Datei ein die in mein Tabellenblatt eingefüllt werden soll. Dieses Blatt ist meine Grundlage. Dieser Code funktioniert auch soweit
Dim importdatei As Variant
Dim wbimport As Workbook
importdatei = Application.GetOpenFilename(filefilter:="Microsoft Exel-Dateien(*.xlsx),*.xlsx", Title:="Choose a file")
If importdatei = False Then Exit Sub
Set wbimport = Workbooks.Open(importdatei)
wbimport.Worksheets("DisInf").UsedRange.Copy
ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wbimport.Close savechanges:=False
Set wbimport = Nothing
End Sub
Nun soll dieses Tabellenblatt regelmäßig gepflegt werden. Das heißt es soll eine datei eingelesen werden und in ein zweites Tabellenblatt kopiert werden.
Tabellenblatt 1 bestehen aus folgenden Spalten, MatText, MatNo, Preis, Bezeichnung
Tabellenblatt 2 ist genauso aufgebaut, jedoch in der aktualisierten Version, die der Nutzer vorher ausgewählt hat
Nun soll nach MatNo gesucht werden, wenn ein Eintrag im Tabellenblatt 2 vorhanden ist, soll die ganze Zeile aus Tabllenblatt 2 in 1 eingefügt werden und ein Zeitstempel dahinter stehen, somit wird der Wert ja aktualisiert.
Am Ende der Prüfung soll Tabellenblatt 2 geschlossen werden.
Kann mir jemand bitte helfen?