|
Hallo zusammen,
ich muss mehrere einzelne Strings (z.B "H390", "H290"; "H411" etc.) mit einem langen String in einer Zelle vergleichen (z.B "H292; H311; H302; H390, H411")
Sub Gruppe1()
Dim MeinBereich As Range
Dim Zelle As Object
On Error GoTo Canceled
Set MeinBereich = Application.InputBox(Prompt:="Bereich wählen", Title:="Bereich wählen", Type:=8)
For Each Zelle In MeinBereich
'Gruppe1 - Farbe 3=rot
Zelle.Characters(InStr(4, Zelle.Value, "H350"), 4).Font.ColorIndex = 3
Zelle.Characters(InStr(4, Zelle.Value, "H340"), 4).Font.ColorIndex = 3
Zelle.Characters(InStr(4, Zelle.Value, "H410"), 4).Font.ColorIndex = 3
'Gruppe 3- Farbe 5 =blau
Zelle.Characters(InStr(4, Zelle.Value, "H300"), 4).Font.ColorIndex = 5
Zelle.Characters(InStr(4, Zelle.Value, "H301"), 4).Font.ColorIndex = 5
Zelle.Characters(InStr(4, Zelle.Value, "H310"), 4).Font.ColorIndex = 5
Next
Exit Sub
Canceled:
End Sub
Beim Beispiel
|
xxxx; H304;H360; H350; H300; H310; H302;H400;H411 |
|
H340; H360; H350; H300; H310; H302 |
|
H410; H360; H350; H300; H310; H302 |
wird z.B. neben xxxx auch H340 und H410 hellgrün eingefärbt und ich komm nicht drauf wieso - ansonsten macht das Makro glaub ich das was es soll.
Zur Erklärung warum das ganze etwas stressig ist - es geht um die Einteilung von Chemikalien zu Gefahrenpotenzialgruppen (einfach mal "H-Sätze" googlen) und wenn etwas grün ist, dann brennt es ein bisschen...ists rot, dann ist es für ein kurzes Leben sehr förderlich :D
Ich hoffe, dass mir irgendjemand weiterhelfen kann und bedanke mich schon mal im voraus!
LG Martin
|