Im Blatt Gefährdungermittlung stehen im Bereich A8 bis B.. (variabel)Werte.Ich möchte nun im Blatt Arbeitsschutzgesetz alle Zellen gelb makieren die den gleichen Inhalt haben.
Das Funktioniert mit folgendem Makro:
Sub gelb_makieren()
Dim Bereich As Range
Dim sBegriff As String
Dim lngZeilenzahl As Long
Sheets("Gefährdungsermittlung").Select
lngZeilenzahl = Cells(Rows.Count, 1).End(xlUp).Row
For Each zelle In Range("a8:b" & lngZeilenzahl)
sBegriff = zelle.Value
With Worksheets("Arbeitsschutzgesetz").Range("a7:i30")
Set c = .Find(sBegriff, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next zelle
End Sub
Mein Problem ist, das im Blatt Gefährdungsermittlung nur der Anfang gleich ist.
Beispiel:
Im Blatt Gefährdungsermittlung steht in B8 "3.1 Gase / asd"
im Blatt Arbeitsschutzgesetz aber nur "3.1 Gase" ohne den zusatz / asd
trotzdem soll die Zelle gelb makiert werden.
Kann jemand mein Makro umbauen, das der Text nicht 100% übereinsteimmen muss ?
Gruß Heino