Neue Zeile, wenn in Datei B fehlt

Guten Morgen, tolle Forumsleute!
ich habe leider vieles, was ich mal gewusst hatte in Bezug auf vba (ja... auch anderes :-) ), wegen Nichtgebrauchs vergessen. Nun bräuchte ich ein wenig Unterstützung. Wahrscheinlich ist es einfach, für jemanden mit viel VBA Erfahrung, ich probiere leider schon seit einer Woche an einer Lösung - ohne Erfolg.
Ich möchte die Werte aus der Spalte A in der Datei A (Quelle) und der Datei B (Ziel) vergleichen.
In Datei A sind entweder gleichviele oder mehrere Werte erfasst als in Datei B.
Wenn nun in Datei B ein Wert aus Datei fehlt, soll eine neue Zeile eingefügt werden und am besten noch der Zellwert aus Datei A mitgegeben werden.
Ich habe die beiden Dateien hier auch hochgeladen:
https://www.herber.de/bbs/user/141940.xlsx
https://www.herber.de/bbs/user/141941.xlsm
Was muss ich beim Modulcode eintragen?
Ganz lieben Dank schon mal vorab!
(und ja, es ist mir peinlich, mit einer solchen Frage nicht selber weiterzukommen)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Synia,
probiers mal mit meinem Code. Ich habe Ralfs super Code angepasst, so dass er dir jetzt an der richtigen Stelle der Liste die Daten einfügt. Es müssen hierbei beide Dateien offen sein.

Sub Bereich_uebertragen()
Dim pfad As String
Dim sZdatei As String, sZblatt As String, sZbereich As String
Dim sQdatei As String, sQblatt As String, sQbereich As String, rQzelle As Range
Dim sZdateipath As String, sQdateipath As String
Dim rng As Range
Dim oZDatei As Workbook, oQDatei As Workbook
Dim oset As Long, i As Long
Dim arQ, arZ, bfund As Boolean
Application.EnableEvents = False
Application.ScreenUpdating = False
pfad = ThisWorkbook.Path '* "F:\Excel"
sZdatei = ThisWorkbook.Name '* "141941.xlsm"
sZblatt = "new structure IFRS"
sZbereich = "A:A"
sZdateipath = pfad & "\" & sZdatei
sQdatei = "Synia A.xlsx"
sQblatt = "IFRS"
sQbereich = "A:A" 'selbst erweitern
sQdateipath = pfad & "\" & sQdatei
Set oQDatei = Workbooks(sQdatei)
Set oZDatei = Workbooks(sZdatei)
'** Bereich auslesen
With oQDatei.Sheets(sQblatt)
arQ = .Range(sQbereich).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 7).Offset(7)
End With
With oZDatei.Sheets(sZblatt)
arZ = .Range(sZbereich).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 7).Offset(7)
End With
For oset = LBound(arQ) To UBound(arQ)
bfund = False
For i = LBound(arZ) To UBound(arZ)
If arQ(oset, 1)  "" And Not IsEmpty(arQ(oset, 1)) Then
If CStr(arQ(oset, 1)) = CStr(arZ(i, 1)) Then
bfund = True
Exit For
End If
End If
Next
If Not bfund And i > UBound(arZ) Then
Range("A" & oset + 7).EntireRow.Insert
oQDatei.Sheets(sQblatt).Range("A" & oset + 7 & ":B" & oset + 7).Copy Destination:=  _
_
oZDatei.Sheets(sZblatt).Range("A" & oset + 7)
End If
Next
Set oQDatei = Nothing
Set oZDatei = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Servus

Beliebteste Forumthreads (12 Monate)

Neue Zeile, wenn in Datei B fehlt

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread