weis jemand wie ich unten stehenden skript in soweit verbessern kann, das automatisch erkannt wird, das die LieferantennummerGS in der LieferantennummerAS enthalten ist?
z.B:
LieferantennummerGS in der Form : "526"
LieferantennummerAS in der Form : " 526 Excel Spezial Spedition"
Das habe ich bereits:
Do
Windows("Gebietsspediteure.xls").Activate
ä = ä + 1
LieferantennummerGS = Range("B" & ä)
Do
Windows(WorkbookName).Activate
ü = ü + 1
LieferantennummerAS = Range("B" & ü)
If LieferantennummerGS Like LieferantennummerAS Then
wert = Range("c" & ü)
If wert > 0 Then Zähler = Zähler + 1
End If
Loop Until LieferantennummerAS Like "Summe Tor 1"
Loop Until LieferantennummerGS = ""
Danke schon mal
Gruß
Markus