Spalten aus ver. Sheets vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lena,
Ist diese Beschreibung korrekt?:
Es gibt eine Master-Tabelle und eine Client-Tabelle. Beide haben eine Spalte, wo Schlüssel vorliegen.
Ist im Client mehrere Zeilen mit dieselben Schlüssel, sollen diese Zeilen gelöcht und durch die eine Zeile aus Master mit diesem Schlüsselwert ersetzt.
oder diese korrekt:
es gibt eine Master- und eine Client-Tabelle. Beide haben eine Spalte, wo Schlüssel vorliegen.
Ist eine Schlüssel vom Client-Tab auch im Master-Tab vorhanden sein, soll die ganze Zeile vom Client durch die vom Master ersetzt werden.
Die einzige Unterschied: im Fall 2 können am Ende mehrere gleiche Zeile vorhanden sein, falls die Schlüssel mehrfach vorkommt.
Viel Erfolg
Yal

Sub Ubertrage() Dim U As Worksheet Dim M As Worksheet Dim mi, ui, s Set U = ThisWorkbook.Worksheets("Überblick") Set M = ThisWorkbook.Worksheets("Monat") For mi = 2 To M.Range("A10000").End(xlUp).Row For ui = 2 To U.Range("A10000").End(xlUp).Row If M.Cells(mi, 1) = U.Cells(ui, 10) Then For s = 1 To U.Cells(ui, 1000).End(xlToLeft).Column M.Cells(mi, s + 9) = U.Cells(ui, s) Next End If Next Next End Sub

Lenaaha!
Deine Frage war "Spalte J".
Also habe ich brav das Coding auf dein gegebenen Beispiel entwickelt und dann beim Posten auf Spalte J umgelegt:

Sub Ubertrage()
Dim U As Worksheet
Dim M As Worksheet
Dim mi, ui, s
Set U = ThisWorkbook.Worksheets("Überblick")
Set M = ThisWorkbook.Worksheets("Monat")
For mi = 2 To M.Range("A10000").End(xlUp).Row
For ui = 2 To U.Range("A10000").End(xlUp).Row
If M.Cells(mi, 1) = U.Cells(ui, 10) Then
For s = 1 To U.Cells(ui, 1000).End(xlToLeft).Column
M.Cells(mi, s + 9) = U.Cells(ui, s)
Next
End If
Next
Next
End Sub

Ein Coding, das auf die Spalte A, wie im Beispiel funktoniert, sieht es so aus:

Sub Ubertrage()
Dim U As Worksheet
Dim M As Worksheet
Dim mi, ui, s
Set U = ThisWorkbook.Worksheets("Überblick")
Set M = ThisWorkbook.Worksheets("Monat")
For mi = 2 To M.Range("A10000").End(xlUp).Row
For ui = 2 To U.Range("A10000").End(xlUp).Row
If M.Cells(mi, 1) = U.Cells(ui, 1) Then
For s = 1 To U.Cells(ui, 1000).End(xlToLeft).Column
M.Cells(mi, s) = U.Cells(ui, s)
Next
End If
Next
Next
End Sub

7 Fehler-Spiel (nein, es sind nur 2): wo sind die Unterschied und warum.
Das habe ich -wie übrigens empfohlen- beim Setzen der Überwachungsausdruck U.Cells(ui, 10).Value entdeckt.
VG
Yal

Beliebteste Forumthreads (12 Monate)

Spalten aus ver. Sheets vergleichen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread