fast schon Wochenende und schönes Wetter. Fast perfekt. Leider hab ich noch ein kleines Problem. Hoffe auf eure Hilfe.
Ich möchte zwei Spalten vergleichen (die auf unterschiedlichen Tabellenblättern stehen) und wenn übereinstimmende Werte gefunden werden, möchte ich die Zellen der jeweiligen Zeilen auf Gleichheit überpüfen. Die Tabellen sind gleich aufgebaut, allerdings stehen die zu suchenden Werte meistens nicht an der gleichen Stelle (soll heissen, sie stehen an unterschiedlichen Stellen in der jeweiligen Spalte).Mein Problem ist jetzt, dass ich nicht weiss, wie ich die entsprechenden Zeilen der gefundenen Werte anspreche (wie krieg ich die beiden entsprechenden Zeilen jeweils in ein Array?) und dann die Zellen der Zeilen miteinander vergleiche.
Danke für eure spitzen Hilfe. Grüße Sebastian
Hier mal das Makro dass ich bis jetzt hab:
Public
Sub Vergleich_Change_Serial_Array()
Dim arrA As Variant
Dim rng As Range
Dim lastRow1 As Long, lastRow2 As Long
Dim n As Integer, i As Integer, j As Integer
Dim WertA As String, WertB As String
lastRow1 = IIf(Sheets("Change").Range("F65536") <> "", 65536, _
Sheets("Change").Range("F65536").End(xlUp).Row)
lastRow2 = IIf(Sheets("Calc").Range("F65536") <> "", 65536, _
Sheets("Calc").Range("F65536").End(xlUp).Row)
arrA = Sheets("Change").Range("F21:F" & lastRow1)
For n = 1 To UBound(arrA, 1)
Set rng = Sheets("Calc").Range("F21:F" & lastRow2).Find(arrA(n, 1))
'Daten aus Tabelle1 (NomiList) in Tabelle2 (New) suchen und
'wenn nicht gefunden in Tabelle3 (Change) eintragen.
If Not rng Is Nothing Then
End If
Next n
End Sub