NICHT-doppelte Einträge Farblich markieren
07.11.2005 11:40:33
mrib
Habe eine Datei mit verschieden Registern (Tabelle1,Tabelle2,Tabelle3...)
Jetzt Möchte ich alle Artikel Nummern ( z.b. M000343) die im ersten Register (Tabelle1 - bei mir nennt der sich Artikelstammdaten) in der Spalte A stehen und in allen anderen Registern NICHT vorkommen farblich (Rot) markieren!
Das hier habe ich schon mal als Ansatz ( THX @ Marc ):
Sub SuchenUndFärben()
Dim i As Integer
Dim Blatt As Worksheet
Dim suchbegriff As String
Dim s As String
Dim Zelle As Range
suchbegriff = InputBox("Geben Sie den Suchbegriff ein!")
If suchbegriff = "" Then Exit Sub
For i = 1 To Application.Workbooks.Count
For Each Blatt In Workbooks(i).Worksheets
Blatt.Activate
Set Zelle = Blatt.Cells.Find(suchbegriff)
If Not Zelle Is Nothing Then
s = Zelle.Address
Do
Zelle.Activate
Zelle.Interior.ColorIndex = 3
Set Zelle = Cells.FindNext(After:=ActiveCell)
On Error Resume Next
If Zelle.Address = s Then Exit Do
Zelle.Interior.ColorIndex = 3
Loop
End If
Next Blatt
Workbooks(i).Activate
Next i
End Sub
Hierbei werden die Doppelten Einträge sowohl in dem Register Artikelstammdaten als auch in allen anderen Registern in denen diese Nummer vorkommt Rot markiert. Außerdem muss mann hierbei den Suchbegriff eingeben, ich möchte aber das auto. nach allen Nummern die sich im Register Artikelstammdaten in Spalte A befinden gesucht wird...
Also genau das gegenteil von dem was ich brauche ;)
Kann mir jemand bei der änderung/Umsetzung helfen?
THX