Daten vergleichen und übertragen

Hallo Fachleute,
ich habe eine neue Aufgabe bekommen, die zum einen wöchentlich und zum anderen mit immer neuen Daten erfolgt.
Ich habe ca. 110 Filialen zu betreuen mit jeweils eigener Filialnummer, von denen mir ein Teil Datensätze schickt, die ich übertragen soll. Bisher mache ich das händisch, eventuell hat jemand eine Idee für ein automatisiertes Verfahren.
Anhand der hochgeladenen Beispieldatei ist mein Anliegen vielleicht zu verstehen:
In Spalte A stehen alle Filialnummern. In Spalte C, die Filialen die Daten geliefert haben und in D bis H die zugehörigen Daten.
In Spalte J nochmals die Filialnummer und in K bis O sollen die zugehörigen gelieferten Daten eingetragen werden, wenn die jeweiligen Filialnummern aus Spalte C und J übereinstimmen.
Im Beispiel ist der erste Datensatz, der relevant ist, von 1486; der nächste wäre von 1502.
Wäre schön, wenn es hierfür eine Lösung gibt und vorab schon herzlichen Dank (zumindest für das Nachdenken). Ich hoffe, es wenigstens halbwegs verständlich erklärt zu haben.
https://www.herber.de/bbs/user/131667.xlsx
parza

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
also ich habe das so verstanden, dass du in der Spalte J eine bestimmte Anzahl von Fililanummern stehen hast, für die du prüfen willst, ob Daten übermittelt wurden oder nicht. Wenn ja, dann die entsprechenden Daten aus D bis H in die ensprechende Filialnummer in die Spalten K bis O.
Als erstes solltest du aber dann mal für einen einheitlichen Aufbau im Bereich der Spalten J bis O sorgen. Dort hast du nämlich zwischen den einzelnen "Blöcken" mal eine und mal zwei Leerzeilen.
Bereinige das mal dahingehend, dass die erste Filialnummer (wie jetzt auch schon) in J2 steht und zwischen den einzelnen Blöcken jeweils nur eine Leerzeile ist.
Dann stellt sich aber auch noch die Frage ob pro gesuchter Filiale maximal 5 verschiedene Datensätze kommen können, oder ob es auch mehr sein könnten. Im Moment hast du ja pro Filiale 5 Zeilen für maximal 5 Datensätze.
Hier mal ein Code, der sich stur an der Struktur deiner Beispieltabelle orientiert. Aber wie schon gesagt vorher bitte die Datenblöcke entsprechend anpassen.

Public Sub Übertrag()
Dim i As Long, boVorhanden As Boolean
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "J").End(xlUp).Row Step 7
If WorksheetFunction.CountIf(.Columns(3), .Cells(i, "J")) > 0 Then
boVorhanden = True
.Range("C1:H" & .Cells(.Rows.Count, "C").End(xlUp).Row).AutoFilter Field:=1, _
Criteria1:=.Cells(i, "J")
With .AutoFilter.Range
.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy
End With
.Cells(i, "J").Offset(1, 1).PasteSpecial Paste:=xlPasteValues
End If
Next i
If .AutoFilterMode Then .AutoFilterMode = False
If Not boVorhanden Then
MsgBox "Von keiner der gesuchten Filialen wurden Daten übersandt."
End If
.Range("A2").Select
End With
Application.CutCopyMode = False
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Daten vergleichen und übertragen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten vergleichen und übertragen

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

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread