Sub zuordnen()
Dim iZeile As Long
Dim Pos As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & iZeile - 1), Cells(iZeile, 1)) > 0 Then
Pos = WorksheetFunction.Match(Cells(iZeile, 1), Range("A1:A" & iZeile - 1), 0)
Cells(Pos, Range("IV" & Pos).End(xlToLeft).Column + 1) = Cells(iZeile, 1)
Rows(iZeile).EntireRow.Delete
End If
Next iZeile
End Sub
Ausgangsdaten: ergeben bei Makro1: bei Makro2:
A B A B C A B C
1 1 1 1
2 2 2 2 2 2 2 2
3 3 3 3 3 3
4 4 4 4
5 5 5 5 5 5
6 6 6 6
7 7 7 7 7 7
8 8 8 8
9 9 9 9
10 2
11 5
12 7
13 2
14 3
Kannst Du das auch so schreiben, das die Tabelle nach links geändert wird?
beispiel
A B C D E F
2 alte Daten die da noch stehen
3 3 alte Daten
4 alte daten
Das sind ja Daten die ich schon habe, und dann kommen Änderungslisten.
...