Zwei ungleiche Spalten abgleichen

Hallo,
denke es handelt sich um ein einfacheres Problem, aber ich stehe auf dem Schlauch und komme nicht mehr weiter. Es handelt sich um 3 Spalten (siehe Beispiel). Die erste Spalte hat Nummern, die zweite Spalte hat die gleichen Nummern (unterschiedliche Reihenfolge und mehrere andere Nummern), die Dritte Spalte gehört zur Zweiten(schon zusammengefügt) und gibt einen Status der zweiten Spalte. Nun versuche ich (siehe roter Kasten im Beispiel) die erste Spalte mit der dritten Spalte zu kombinieren, so dass ich Auskunft über deren Status bekomme.
Wichtig: benötige VBA, soweit habe ich schon Code für Zusammenfügen der Spalten über mehrere Tabellenblätter...also demnach nur der Abschnitt fürs Vergleichen, bzw. Zusammenfügen.
Schonmal vielen Dank im Voraus,
Fabi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Status() Dim LR As Long With Worksheets("Sheet1") LR = .Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile Spalte A With .Range("D2:D" & LR) .FormulaR1C1 = "=VLOOKUP(RC[-3],C[-2]:C[-1],2,0)" .Value = .Value End With .Range("C1").Copy .Range("D1") .Columns("B:C").Delete Shift:=xlToLeft End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Hi
in Spalte A stehen Zahlen, in Spalte B Text (der wie Zahlen aussieht)
das ist für den Sverweis nicht gleich.
- Spalte B wird vorher in Zahlen umgewandelt
- In der Formel hab ich noch die Fehlerbehandlung eingebaut,
weil es auch Zeilen in A gab, die in B nicht vorhanden waren.
=WENNFEHLER(SVERWEIS(A2;(B:C);2;0);"")

Sub Status()
    Dim LRA As Long, LRB As Long
    With Worksheets("Sheet1")
        LRA = .Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile Spalte A 
        LRB = .Cells(Rows.Count, "B").End(xlUp).Row 'letzte Zeile Spalte B 
        With .Range("B2:B" & LRB)
            .NumberFormat = "0"
            .Value = .Value
        End With
        With .Range("D2:D" & LRA)
            .FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-3],(C[-2]:C[-1]),2,0),"""")"
            .Value = .Value
        End With
        .Range("C1").Copy .Range("D1")
        .Columns("B:C").Delete Shift:=xlToLeft
    End With
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Zwei ungleiche Spalten abgleichen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwei ungleiche Spalten abgleichen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread