Ähnlichkeitsprüfung

[keksi1970]

Hi,

ich mal wieder und bin heute wie vor den Kopf gestossen.

ich bräuchte ein Makro, welches eine Zelle ausliest und wenn sagen wir mal 10 Zeichen(in der richtigen Reihenfolge, aber nicht an der selben Position) übereinstimmen, soll er das in eine andere Zelle schreiben. Da ich auch nicht mehr in der Lage bin, mich richtig zu artikulieren, vielleicht ein Beispiel :

ich habe einen Artikelstamm von ca 7000 sätzen. die Beschreibung soll überprüft werden.
art-nr : 0001 Ball, rund, 10 cm
art-nr : 1243 Ball, rund
art-nr : 6421 2er Pack : Ball, rund 10cm

diese artikel sollen in einer neuen Spalte noch mal seperat aufgeführt werden.

Vielleicht hat ja jemand so ein Makro, welches er mir zur Verfügung stellt.

LG
Andreas

[turtle47]

Hallo Andreas,

meinst Du sowas

Code: Alles auswählen

Sub Main
	aStrings = Array("0001 Ball, rund, 10 cm","1243 Ball, rund","Ball, oval, 10 cm","6421 2er Pack : Ball, rund 10cm")
	for i = o To ubound(aStrings)
	MyString = aStrings(i)
	if instr(aStrings(i),"Ball, rund") then
	msgbox "Teilstring enthalten"
	else
	msgbox "Teilstring nicht enthalten"
	end if
	next i
End Sub

?

Jürgen

[keksi1970]

Genau, danke Jürgen,

lg
Andreas