Office: (Office 2010) Werte einer Spalte in Bezug zu einer anderen Spalte anordnen (VBA)

Hallo zusammen,

ich möchte die Werte in zwei Spalten nach Gleichheit sortiert auflisten, komme aber nach langer suche im Internet nicht zu einer optimalen Lösung.
Dazu habe ich eine Beispiel-Tabelle angelegt und hoffe, dass ich hier die auf Hilfe stoße.
Alles andere wird in der Tabelle beschrieben.

Beste Grüße
Bamane

 

Hallo Baname,

wie genau kommen die Werte in die Tabelle?
Ist die Referenz mmer die gleiche?

Vielleicht kannst Du den Code posten, der dich zu deinem aktuellen Ergebnis bringt.

Gruß,
Lutz

 

Hallo Lutz,

die Referenzen und die Nr. werden jeweils aus zwei unterschiedlichen Tabellen in diese Tabelle hinzugefügt, wobei beide dieselben Bezeichnungen haben. In der Referenzliste sind alle Daten aufgeführt und in der Nummernliste werden nach und nach die Nummern eingetragen, sodass am Ende ein Vergleich auf Vollständigkeit auf der dritten Tabelle durchgeführt werden soll.
Der Code für das Einfügen der Referenzen und der Nummern sieht wie folgt aus:

Sheets("Tabelle1").Select 'Kopieren der Nummern von Tabelle 1 auf Tabelle 3, Datum und Beträge analog dazu
Range("A3:A1000").Select
Selection.Copy
Sheets("Tabelle3").Select
Range("A3").Select
ActiveSheet.Paste

Sheets("Tabelle2").Select 'Kopieren der Referenzen von Tabelle 2 auf Tabelle 3, Datum und Beträge analog dazu
Range("A3:A1000").Select
Selection.Copy
Sheets("Tabelle3").Select
Range("D3").Select
ActiveSheet.Paste

Ich brauche jetzt nur noch die Sortierung der Nummern zu den Referenzen, samt Datum und Beträge.

Beste Grüße
Bamane

 

Hallo Bamane,

probier mal das:

Code:

Sub Baname()

LetzteZeileReferenzen = Sheets("Tabelle2").UsedRange.SpecialCells(xlCellTypeLastCell).Row
LetzteZeileNummern = Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row

ReDim Referenzen(4, LetzteZeileReferenzen)
ReDim Nummern(2, LetzteZeileNummern)

For Zeile = 3 To LetzteZeileReferenzen
    Referenzen(1, Zeile) = Sheets("Tabelle2").Cells(Zeile, 1).Value
    Referenzen(2, Zeile) = Sheets("Tabelle2").Cells(Zeile, 2).Value
Next Zeile
For Zeile = 3 To LetzteZeileNummern
    Nummern(1, Zeile) = Sheets("Tabelle1").Cells(Zeile, 1).Value
    Nummern(2, Zeile) = Sheets("Tabelle1").Cells(Zeile, 2).Value
Next Zeile

For Zeile = 3 To LetzteZeileReferenzen
    For Suche = 3 To LetzteZeileNummern
        If Referenzen(1, Zeile) = Nummern(1, Suche) Then
            Referenzen(3, Zeile) = Nummern(1, Suche)
            Referenzen(4, Zeile) = Nummern(2, Suche)
            Exit For
        End If
    Next Suche
Next Zeile

Sheets("Tabelle3").Activate
For Zeile = 3 To LetzteZeileReferenzen
    Cells(Zeile + 1, 1) = Referenzen(3, Zeile)
    Cells(Zeile + 1, 2) = Referenzen(4, Zeile)
    Cells(Zeile + 1, 4) = Referenzen(1, Zeile)
    Cells(Zeile + 1, 5) = Referenzen(2, Zeile)
Next Zeile

End Sub

Ist ungetestet.

Gruß,
Lutz

 

Hola,

scheinbar geht es jetzt hier weiter...

http://ms-office-forum.net/forum/showthread.php?t=346011

Gruß,
steve1da