'postide asukoha määramine
  Set postide_asukohad = Range("postide_asukohad")
  If Range("postide_vahed_vordselt") = "Jah" Then
  L0 = Range("algus") 'esimese posti asukoht
  Tee_Locvektor L0, L_kasipuu, LV(), n
  Else
  ReDim LV(1 To n)
  Set postide_asukohad = Worksheets("Spetsifikatsioon").Range("lammas")
  Loe_Tulp LV, n, postide_asukohad
L0 = LV(1)
  Kir_Tulp LV, 1, n, Worksheets("Calculations").Range("postide_asukohad")
  End If