msgbox überspringen
15.02.2008 14:26:00
Manfred
ich komme trotz suche im forum einfach nicht weiter, vielleicht kann mir ja jemand helfen.
habe den folgenden code im forum gefunden und umgebaut. er sucht mir die doppelten einträge (zahlen) in spalte B und markiert diese. nun hätte ich gerne daß die msgbox nicht öffnet wenn keine doppelten einträge gefunden werden, dh. der code läuft durch, geht das ?
Sub Doppelte_kennzeichnen_8er()
Dim rZelle As Range
Dim Bereich As Range
Dim sTemp As String
'"8er_Feld", Blattname gegebenenfalls anpassen
Sheets("8er_Feld").[B2:B9].Interior.ColorIndex = xlNone ' Löscht die eingefärbten Zellen im _
_
Bereich
Set Bereich = Sheets("8er_Feld").Range("B2:B9") ' Bereich der durchsucht wird
For Each rZelle In Bereich
If Application.CountIf(Bereich, rZelle) > 1 Then
rZelle.Interior.ColorIndex = 6 'Farbe wählen
sTemp = sTemp & rZelle.Text & " --> Zeile " & rZelle.Row & Chr(13)
End If
Next
MsgBox sTemp, 48, " Hinweis für " & Application.UserName
End Sub
Grüße aus BW
Manfred