Servus Bernd.
Ja danke, so habe ich es jetzt gelöst.
'-----------------------------------------------
BDm = selection1.Item(I).Value.Diameter.Value
H=right(BDm,len(BDm)-instrrev (BDm,","))
If H ="02" then BT="PassungH7"
'-----------------------------------------------
mfg BLD
------------------
Ich will es gar nicht wissen, aber ich muss.....Das Leben verlangt es.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP