Tabellenmerge mit mehreren Einträgen zu einem Key

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Rückfrage

08.10.2014 12:35:21

Daniel

AW: Rückfrage

08.10.2014 13:53:08

Monika

AW: Rückfrage

08.10.2014 15:12:37

Michael

AW: Rückfrage

08.10.2014 15:24:38

Daniel

AW: Rückfrage

08.10.2014 16:52:20

Monika

AW: Rückfrage

08.10.2014 17:03:22

Michael

Nachtrag

08.10.2014 17:08:59

Michael

AW: Rückfrage

09.10.2014 11:39:48

Monika

Gerne und Korrektur

09.10.2014 14:17:35

Michael

Hallo Monika,
ich habe mir Deine Datei angesehen und bin etwas verwirrt. Welche Tabelle soll zu welcher sortiert werden? Oder so: ist eine von beiden so etwas wie eine "Master-Tabelle"?
Isses nicht sinnvoll, in der Ergebnistabelle zu vermerken, aus welcher der beiden anderen Tabellen die Ergebnisse übernommen wurden?
Die Status-Tabelle enthält viel mehr Auftragsnummern als die Tracker-Tabelle. Wie soll es im Ergebnis dargestellt werden, daß kein Eintrag in letzterer existiert?
Was ist mit den nicht existenten Auftragsnummern in Tracker (z.B. Zeile 23)? Sollen die mit gemerged werden, und wenn ja, wohin?
Wo befindet sich das Land WAHR?
Fragen über Fragen.
Der Punkt ist ein grundlegend durchdachtes "Datenbank-Design", wenn man denn schon Excel DB-mäßig einsetzen möchte.
Grundlage 1: eindeutiger Primärschlüssel: nicht vorhanden, da nicht existente Nummern in Tracker
Grundlage 2: Aufteilung in mehrere Tabellen: Ein Auftrag hat Daten, die zum "Auftrag selbst gehören" und pro Auftrag nur einmal vorhanden sind: Nr., Land, Währung, Kunde usw. Dazu gibt es Auftrags-Posten, die von der Logik her in eine zweite, mit der ersten über einen eindeutigen Schlüssel verknüpften Tabelle gehören.
Das ist leicht einzusehen, wenn Du Dir eine Rechnung o.ä. ansiehst: es gibt einen Rechnungskopf mit den "Überdaten" und einen Bereich für einzelne Rechnungsposten.
Das Ergebnis ist dann "theoretisch richtig konzipiert", braucht aber mehr Papier, z.B. so:


Auftrag Nr. Sonstige_Daten
12345       Bla
Posten 1: Stück, Ware
12346       Blabla
Posten 1: Stück, Ware
Posten n: Stück, Ware

usw.
Das Problem, wenn man es nicht so macht, ist eine ungünstige Vermischung von Daten und Struktur.
...
Ich habe mir nochmal die ursprüngliche Fragestellung angesehen. Es ist einfach unklar, was mit Posten passieren soll, bei denen die Auftragsnummer nicht in beiden Tabellen vorkommt: man könnte sie weglassen, aber dann könnten wichtige Informationen am Anwender vorbeigehen.
Mach Dir doch bitte ein paar Gedanken über die nachgefragten Details, dann sehen wir weiter.
Schöne Grüße,
Michael

Hallo Monika,
ich bitte meine Faulheit zu entschuldigen...
Ich hab's mir einfach gemacht und ein neues Tabellenblatt in Deiner ALTEN Datei angelegt, das ist dann die Tabelle4, in die das Makro alle Daten schreibt.
Es sind zwei Teile:
a) einzeilig_Kopieren kopiert alles aus OrderStatus
b) mischt alles aus OrderTracker rein UND schreibt ein x in Spalte K, wenn was kopiert wurde: das dient dazu, diese Daten evtl. noch zusätzlich reinzukopieren, wenn gewünscht.
Option Explicit

Sub einzeilig_Kopieren()
Dim zeile, zeile_erg As Long
Dim orderNr, ProdNr As String
zeile = 2
zeile_erg = 3
While Tabelle1.Range("A" & zeile)  ""
Tabelle1.Rows(zeile).Copy Destination:=Tabelle4.Rows(zeile_erg)
orderNr = Tabelle1.Range("A" & zeile).Value
zeile = zeile + 1
While Tabelle1.Range("A" & zeile).Value = orderNr
Tabelle4.Range("D" & zeile_erg).Value = _
Tabelle4.Range("D" & zeile_erg).Value & " " & _
Tabelle1.Range("D" & zeile).Value
zeile = zeile + 1
Wend
zeile_erg = zeile_erg + 1
Wend
End Sub

Sub Tracker_reinmischen()
Dim zeile As Long
Dim orderNr As String
Dim gefunden As Range
zeile = 3
While Tabelle4.Range("A" & zeile)  ""
orderNr = Tabelle4.Range("A" & zeile).Value
Set gefunden = Tabelle2.Cells.Find(What:=orderNr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not gefunden Is Nothing Then
Tabelle2.Range("A" & gefunden.Row & ":H" & gefunden.Row).Copy _
Destination:=Tabelle4.Cells(zeile, 11)
Tabelle2.Range("I" & gefunden.Row).Value = "x"
End If
zeile = zeile + 1
Wend
End Sub

Sub alles_machen() ' das hier aufrufen
einzeilig_Kopieren
Tracker_reinmischen
End Sub

Die Faulheit besteht darin, daß ich nicht Zelle für Zelle dahin kopiere, wo Du sie haben willst, sondern jeweils die komplette Zeile nach Ax bzw. Kx: es ist kein großer Aufwand, die Spalten hinterher untereinander zu verschieben bzw. doppelte zu löschen.
File anbei: https://www.herber.de/bbs/user/93035.xls
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Tabellenmerge mit mehreren Einträgen zu einem Key

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenmerge mit mehreren Einträgen zu einem Key

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

309 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