VisualBasic VBA Excel Vergleichen und Sortieren

[masaeN]

Hallo

Ich weiss nicht ob ich hier richtig bin aber ich hab hier ein VBA Makro für Excel in dem es 2 Tabellen spalten vergleicht und Sortiert

bsp.:

a b
1 2
2 4
3 6
4 8
5
6
7
8


nach

a b
1
2 2
3
4 4
5
6 6
7
8 8

Jetzt habe ich noch eine dritte Spalte (c) die an der 2. spalte (b) bleiben sollte ... schaut dann ca. so aus:

a b c
1 2 Test2
2 4 Test4
3
4


a b c
1
2 2 Test2
3
4 4 Test4

Hier mal das Makro:

Sub Sortiren()

Dim iRow As Long

'sort the two columns ascending
Range("A1", [A65536].End(xlUp)).Sort Key1:=[a1]
Range("C1", [C65536].End(xlUp)).Sort Key1:=[c1]

iRow = 1

Do Until IsEmpty(Cells(iRow, 1)) Or IsEmpty(Cells(iRow, 3))

If Cells(iRow, 1) < Cells(iRow, 3) Then
Cells(iRow, 3).Insert xlShiftDown
ElseIf Cells(iRow, 1) > Cells(iRow, 3) Then
Cells(iRow, 1).Insert xlShiftDown
End If

iRow = iRow + 1

Loop

End Sub

In meinem Excel wird Spalte A,C und D verwendet bitte nicht vom beispiel und dem makro irritieren lassen.

Könnt ihr mir helfen?

 

[Knufu]

Was genau ist jetzt Deine Frage?

 

[masaeN]

Sorry,

Ich will nun anstatt nur Reihe A mit B zu vergleichen und Passend zu Sortieren will ich auch noch das Reihe C mitgenommen wird. Wie muss ich das Makro bearbeiten das es die Zeile C mitnimm wie im bsp. gezeigt