MsgBox
07.03.2008 12:44:34
Manfred
benötige etwas Hilfe,
ich benötige nach dem finden von doppelten Werten eine MsgBox die sagt >doppelte Werte gefunden
Sub Pnr_vergleichen_doppelte_faerben()
Dim xx As Worksheet, yy As Worksheet
Dim i As Long, j As Long
Set xx = Worksheets("Auswertung")
Set yy = Worksheets("8er_Feld")
For i = 2 To 500
If xx.Cells(i, 2) "" Then
For j = 2 To 500
If xx.Cells(i, 2) = yy.Cells(j, 2) Then
' Farbe in die Zellen Tab1 SpB
yy.Activate
yy.Range(yy.Cells(j, 2), yy.Cells(j, 2)).Interior.ColorIndex = 4 'grün
End If
Next
End If
Next
End Sub
Mit freundlichen Grüßen
Manfred