|
Guten Tag liebe Gemeinde
Mein Problem: Für ein Projekt darf ich ein Lebensmittelsortiment auf Allergene überprüfen und diese dann gross hervorheben. Bsp. Weizenmehl -> WEIZENMEHL
Das Sortiment umfasst ca. 60000 Artikel und aktuelle habe ich 400 verschiedene allergene Stoffe gesammelt, die zu ersetzen sind.
Lasse ich das unten aufgeführte Makro mit allen Stoffen durchlaufen, ersetzt es mir vieles in komische Wörter die nicht in der liste der zu ersetzenden Wörter stehen (Wirr zusammengesetzte wörter wie SAHNEPULVERBITTERNÜSSEpulver)
Ich kenne mich im VBA zu wenig bis garnicht aus.. und das Makro habe ich nach langer google suche gefunden. Aus diesem Grund wende ich mich an Euch. Könnt ihr mir bei meinem Problem helfen?
Freundliche Grüsse
Mauricio
Dieses Vorhaben habe ich mit dem folgendem Makro umzusetzen.
Sub mehrfachSuchenUndErsetzen1()
Dim suchArray()
Dim ersetzArray()
Dim k As Long
suchArray = Array("Weizen", "Weizenprotein", "Gerstenmalz", "Gerstenmalzmehl", "Gerstenmalzextrakt", "Weizenmehl", "Weizenkleber", "Weizenstärke", "Weizenfaser", "Hartweizengriess")
ersetzArray = Array("WEIZEN", "WEIZENPROTEIN", "GERSTENMALZ", "GERSTENMALZMEHL", "GERSTENMALZEXTRAKT", "WEIZENMEHL", "WEIZENKLEBER", "WEIZENSTÄRKE", "WEIZENFASER", " HARTWEIZENGRIESS")
For k = LBound(suchArray) To UBound(suchArray)
Call ActiveSheet.UsedRange.Replace(suchArray(k), _
ersetzArray(k), _
, _
, _
False)
Next k
End Sub
|