Tabellenblätter vergleichen
06.12.2019 16:28:31
Tim
ich habe ein Makro welches mir den Inhalt von zwei Tabellenblättern vergleicht, dabei soll er prüfen ob der Vergleichswert einem "IsNumeric(a) And InStr(wksZ.Cells(i, 12).Text, "-") Das funktioniert ganz gut, jedoch gibt es auch Werte zu denen kein Vergleichswert gefunden werden kann, diese soll er mir als "nicht gefunden" anzeigen, jedoch bekomme ich das nicht hin.
Wer kann mir dabei helfen?
Sub Vergleichen()
Dim a As Variant
Dim letzte As Long
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Test1")
Set wksZ = Worksheets("Test2")
letzte = wksZ.Cells(wksZ.Rows.Count, 9).End(xlUp).Row
For i = 1 To letzte
a = Application.Match(wksZ.Cells(i, 9), wksQ.Columns(1), 0)
If IsNumeric(a) And InStr(wksZ.Cells(i, 12).Text, "-")