in einem Arbeitsordner befinden sich diverse Bezugs-Mappen und auch die Ziel-Mappe, aus der Abfragen, wie nachfolgend, erfolgen.
In die aktuell geöffnete Mappe, so bewirkt der jetzige Code, werden alle Zeilen aus der Mappe I_Eingaenge.xlsx, Tabelle1- in Tabelle7 importiert/eingefügt. Vorher wird mit einem anderen Code zunächst der Inhalt der Tabelle7 gelöscht (Dieser Vorgang wäre bei evtl. Umsetzung meines Wunsches dann hinfällig).
Wie kann der Code verändert werden, dass abgeglichen wird, welche Datensätze/Zeilen sich bereits in Tabelle7 befinden, so dass in der Folge nur noch die noch nicht vorhandenen Datensätze/Zeilen aus I_Eingaenge.xlsx in Tabelle7 importiert werden.
Maßgebliche Spalten für das Vorhandensein sind die Spalten I in Verbindung mit Spalte K.
Wäre ein solches Verfahren möglich bzw. die Abänderung des folgenden Codes denkar?
Danke schon jetzt für die Rückantworten.
Herzliche Grüße - Wolfgang
Sub I_Daten_Lesen()
Dim oApp As Excel.Application
Dim ArrayData
Dim strFile As String
Dim MaxRow As Long
Application.ScreenUpdating = False
strFile = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
strFile = strFile & "I_Eingaenge.xlsx"
Set oApp = New Excel.Application
On Error GoTo ErrorHandler:
With oApp
With oApp.Workbooks.Open(strFile, ReadOnly:=True)
.Close False
End With
End With
If IsArray(ArrayData) Then
With Tabelle7
.Range("A1", .Cells(.Rows.Count, 57)).ClearContents
.Range("A1").Resize(UBound(ArrayData), UBound(ArrayData, 2)) = ArrayData
End With
End If
ErrorHandler:
oApp.Quit
Set oApp = Nothing
If Err.Number 0 Then
MsgBox Err.Description, vbCritical + vbMsgBoxSetForeground + vbMsgBoxHelpButton, "Error: " & _
Err.Number, Err.HelpFile, Err.HelpContext
End If
Application.ScreenUpdating = True
End Sub