mittels VBA ohne Formel
17.06.2013 21:44:47
steffen
Code in ein Standardmodul kopieren
Sub Vergleich()
'Tabelle1!SpalteE gegen Tabelle2!SpalteB prüfen
'Ergebnis in Tabelle1!SpalteP wiedergeben
Dim Sh1, Sh2, lRow1, lRow2, lRow, a
Application.ScreenUpdating = False
Set Sh1 = Sheets("Tabelle1")
Set Sh2 = Sheets("Tabelle2")
lRow1 = Sh1.Cells(Rows.Count, 5).End(xlUp).Row 'letzte Zeile Tabelle1!SpalteE
lRow2 = Sh2.Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile Tabelle2!SpalteB
Sh1.Columns(16).Delete 'leert temporär Spalte P zum Veranschaulichen :)
If lRow1 >= lRow2 Then 'Vergleichszeilenbereich festlegen
lRow = lRow1
Else
lRow = lRow2
End If
For a = 1 To lRow ' Ergebnis in Tabelle1!SpalteP eintragen
If Sh1.Cells(a, 5) = Sh2.Cells(a, 2) Then
Sh1.Cells(a, 16) = "Wert identisch"
ElseIf Sh2.Cells(a, 2) = "" Or Sh1.Cells(a, 5) = "" Then
Sh1.Cells(a, 16) = "Vergleichswert fehlt"
Else
Sh1.Cells(a, 16) = "Wert nicht identisch"
End If
Next a
Application.ScreenUpdating = True
End Sub