ich kann mit dem Macro:
'--------------------------------------------------------------------
Sub matchen()
Dim lz As Long
Dim z As Long
Dim myArray()
Dim What2Find As Variant 'Suchbegriff aus Spalte 1
Dim dummy As Long
lz = Cells(Rows.Count, 2).End(xlUp).Row
ReDim myArray(1 To lz)
lz = Cells(Rows.Count, 2).End(xlUp).Row
For z = 1 To lz
What2Find = Cells(z, 2) ' 2 ist die vollständige Liste
If Not What2Find = "" Then
On Error Resume Next
'dummy = WorksheetFunction.Match(What2Find, Columns(1), 0) ' Spalte1 ist die zu untersuchende zeile
dummy = WorksheetFunction.Match(What2Find, Columns(ActiveCell.Column), 0) ' Spalte1 ist die zu untersuchende zeile
If Err Then
myArray(z) = What2Find
End If
End If
Next
MsgBox "Folgende Werte fehlen in der markierten Spalte:" _
& String(2, Chr(10)) & Join(myArray, Chr(10))
listbx1
UserForm2.ListBox1.List
End Sub
'------------------------------------------------------------------------------------------------------------------
zwei Spalten vergleichen und fehlende in der Msgbox oder Listbox ausgeben. Beide werden auch mit den entsprechend fehlenden Daten gefüllt.
Das Problem ist das weder die MSGBox noch die Listbox von oben anfängt. Wenn Beispielweise erst der 50 . Datensatz fehlt schreiben mir beide MSGBOX und Listbox erstmal 49 leere Zeilen.
Kann sich jemand mal mein Macro anschauen? Ich bekomme das einfach nicht hin
https://www.herber.de/bbs/user/157863.xlsb
mfg thomas